vba - 使用 Excel PrintOut 方法时如何防止打印对话框

Question

当我使用 PrintOut 方法将 Worksheet 对象打印到打印机时，即使我设置了 DisplayAlerts = False，也会显示“打印”对话框(显示文件名、目标打印机、打印的页面和取消按钮)。下面的代码适用于 Excel 宏，但如果我在 VB 或 VB.Net 应用程序中使用此代码，也会发生同样的情况(使用 Excel 对象所需的引用更改)。

Public Sub TestPrint()
Dim vSheet As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set vSheet = ActiveSheet
    vSheet.PrintOut Preview:=False

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

编辑:下面的答案更清楚地说明了这一点(它可能是 Windows 对话框而不是 Excel 对话框)，但没有回答我的问题。有谁知道如何防止它被显示吗？

编辑:感谢您的额外研究，凯文。看起来这很像是我所需要的。只是不确定我想盲目接受这样的 API 代码。还有其他人了解这些 API 调用以及它们正在执行作者声称的操作吗？

Answer 1

如果你不想显示打印对话框，那么只需进行如下宏测试即可；它不会显示任何打印对话框，并且会检测默认打印机并立即打印。

sub  test()

 activesheet.printout preview:= false

end sub

运行此宏，它将打印当前事件的工作表，而不显示打印对话框。