Suprimir agora a impressão de diálogo - Microsoft VBS

0

Contexto : Eu estou tentando criar uma tarefa no Windows para imprimir automaticamente um arquivo em determinada hora do dia se o usuário está logado ou não.

Eu li na web que, para executar uma tarefa dessa maneira, o programa ou script fica mais silencioso.

Consegui abrir um arquivo excel e executar a macro completamente silenciosamente, mas no final há uma caixa de diálogo de janelas que diz:

Esta é a macro do Excel que eu uso para imprimir o documento

Private Sub Auto_Open()

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

End Sub

"Agora imprimindo ..."

Pergunta Como posso suprimir esse diálogo?

Este é o script VBS que estou usando atualmente:

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

Eu tentei alterar as opções da função Open entre False e True, mas foi o mesmo.

    
por KoU_warch 04.05.2013 / 21:20

0 respostas