0

Excel 在使用此宏进行打印预览和打印机窗口时崩溃，所以我在 Google 上搜索了很多以了解如何解决此问题，但我失败了。 这是我用于 PrintPreview 的代码

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 位 >>??????

4

2 回答 2

0

The answer is a little late, but for someone who has the same problem it is good to have a solution. Sometimes you might not be connected to a printer, to prevent Excel from freezing use:

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

and below

End With
Application.PrintCommunication = True
于 2014-11-15T12:27:07.257 回答
0

首先，尝试将以下行更改为“true”

Application.ScreenUpdating = False

这可能会产生一条错误消息，用于您的 google 搜索问题解决。

除此之外，也许检查以下项目：

1）macrosecurity设置为低（测试这个，测试后改回原来的设置） 2）进入控制面板，选择卸载程序，单击一次Microsoft office 并选择更改然后修复，让程序检查自己是否丢失。 dll 文件等。问题可能只是缺少 .dll 3) 如果这不能解决问题，请返回控制面板/卸载/更改，这次选择添加/删除功能。
a) 确保安装了所有的 excel（没有灰显） b) 确保在办公室共享功能中，应用程序的 Visual Basic已安装。此外，在共享功能部分，安装了校对工具。我保留所有已安装的 excel 和所有办公室共享功能，以确保涵盖所有基础。

于 2012-09-09T19:06:50.063 回答