禁止立即打印对话框 - Microsoft VBS

禁止立即打印对话框 - Microsoft VBS

语境:我正在尝试在 Windows 中创建一个任务,无论用户是否登录,都自动在一天中的特定时间打印文件。

我在网上看到过,为了以这种方式执行任务,程序或脚本必须完全静默。

我可以打开一个 Excel 文件并完全静默地执行宏,但在最后会出现一个 Windows 对话框,提示:

这是我用来打印文档的 Excel 宏

Private Sub Auto_Open()

   'To print use:
   ThisWorkbook.Sheets("Report").PrintOut 1, 1, 1, False

End Sub

“现在打印....”

问题 我怎样才能抑制该对话框?

这是我目前正在使用的 VBS 脚本:

Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample()

  Dim xlApp
  Dim xlBook

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Users\Public\test.xlsm", 0, False)
  xlApp.Run "Auto_Open"
  xlApp.Quit

  Set xlBook = Nothing
  Set xlApp = Nothing

End Sub

我尝试将 Open 函数的选项在 False 和 True 之间更改,但结果是一样的。

相关内容