excel vba错误，带有Application.GetSaveAsFilename或Application.Dialogs（xlDialogPrinterSetup）

第一次发帖，但已经在这里学到了很多！现在有一个问题我找不到出路

我有一张excel表格，上面有一堆用于开具发票的

用户表单。在其中一个
用户表单中
，用户可以打印发票。
所有代码都可以正常运行到以下行：

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

然后计算机冻结，Microsoft Excel显然使用了处理器容量的60%。几分钟后，“另存为”窗口终于打开了，一切又恢复正常

我试着绕过这个问题，打印成pdf而不是保存成pdf，但同样的情况也发生在网上：

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

在较弱的计算机上，此代码是否存在已知问题？所有代码在我的电脑上都可以正常工作，但在用户的电脑上却不行。
我在代码的其他部分内置了stop和msgbox，以防问题出现在其他地方，但实际上只有在这些行上，计算机才会恐慌

非常感谢您的建议
 你的代码应该没有任何问题。当涉及到网络时，可能会出现这种减速，默认文件夹是否遥远？感谢您的快速回复！我也考虑过这个问题，然后将文件移动到桌面，没有任何更改。有时它可以工作，但大多数时候它会出错，直到你不得不强制关闭。默认文件夹中不是有太多的文件吗？即使在功能强大的PC上，数百个文件的目录操作也可能慢得惊人。另一个选项是检查Windows是否可以自动管理虚拟内存，因为这种情况看起来像是内存不足，而手动设置（限制）虚拟内存。