2012-09-08 187 views
0

Excel崩溃当使用这个宏进行打印预览和打印机窗口时,我在Google上搜索了很多,看看如何解决这个问题,但是我失败了。下面是我用它来打印预览excel 2010在打印和print.preview时崩溃

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 

代码,以便如何解决这些问题,我使用Excel 2010 32位的Win7与32位>> ??????

+0

它工作正常,我...尝试并重新安装打印机驱动程序。 –

+0

我试图在另一台电脑上运行它,但同样的问题和电​​脑我试了它没有连接到它的打印机,那么什么是probelm? –

+0

您必须先安装打印机。尝试安装一个PDF打印机,如果你没有物理的,然后再试一次。 –

回答

0

首先,请尝试更改以下行改为“真”

Application.ScreenUpdating = False 

这可能会产生一个错误信息在你的谷歌搜索解决问题的使用。

除此之外,或许检查以下项目:

1)macrosecurity被设置为低(以测试这一点,变回测试后,原来的设置) 2)去控制面板,选择卸载程序,在微软办公点击一次,选择变化然后修复,让程序检查本身缺少.dll文件等问题可能仅仅是一个缺少.dll 3)如果这并未”解决问题,回到控制面板/卸载/更改,这次选择添加/删除功能
一)确保所有的Excel的安装(没有变灰) 二)保证,在Office共享功能,即应用程序的Visual Basic安装。另外,在共享功能部分中,还安装了校对工具。我保持所有excel和所有办公共享功能的安装,以确保涵盖所有基地。

+0

非常感谢谢恩,我会尽力解决,如你所说... –

0

答案有点晚,但对于有同样问题的人来说,最好有一个解决方案。 有时你可能没有连接到打印机,以防止Excel冻结使用:

Application.PrintCommunication = False 'above: 
    With Activesheet.PageSetup 

及以下

End With 
Application.PrintCommunication = True