Question

第一次发布，但是在这个地方已经学到了很多东西！现在有一个我找不到解决办法的问题。

我有一张带有userforms的Excel工作表，用于开票。在userforms之一中，用户可以打印发票。所有代码都可以正常运行：

fname = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")

然后计算机冻结，并且Microsoft Excel显然正在使用>60%的处理器容量。几分钟后，“另存为”窗口终于弹出，所有操作再次正常。

我尝试解决此问题并打印为pdf而不是保存为pdf，但是在行上也发生了同样的情况：

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
      ActiveWindow.ActiveSheet.PrintOut
End If

在较弱的计算机上，此代码是否存在任何已知问题？所有代码都可以在我的计算机上正常运行，但不能在用户的PC上运行。我在代码的其他部分内置了止动点和msgboxes，以防万一该问题在其他地方出现，但实际上，计算机恐慌只是在这些行上。

非常感谢您的任何建议！