excel 2010 crashes when printing and print.preview Macro

Excel Crashes When use this Macro for print preview and printer window ,so I searched alot on Google to see how to solve this problem ,but i fail. Here is the code i use to PrintPreview :
VB:

 
Sub Print_TimeSht() 
    Application.ScreenUpdating = False 
     
    With ActiveSheet.PageSetup 
        .PrintArea = "$A$1:$Q$599" ' set print area
        .PrintHeadings = False 
        .PrintGridlines = False 
        .PrintComments = xlPrintNoComments 
         
        .CenterHorizontally = False 
        .CenterVertically = False 
        .Orientation = xlPortrait 
        .Draft = False 
         '.PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic 
        .Order = xlDownThenOver 
        .BlackAndWhite = True 
        .Zoom = False 
        .PrintErrors = xlPrintErrorsDisplayed 
         
    End With 
    Application.ScreenUpdating = True 
    With ActiveWindow 
        .Zoom = 80 
        .SelectedSheets.PrintPreview 
         
    End With 
    Application.Dialogs(xlDialogPrint).Show 
    Application.ScreenUpdating = True 
End Sub

So How to solve these Problem i use Excel 2010 32 bit with Win7 32 bit >>??????