Skip to Content

Script para acessar a impressora

capturar.png

Prezados,

Estou tentando criar um script que acesse a impressora via VBA, porém não estou tendo êxito. Alguém poderia me ajudar? Na verdade não estou conseguindo dá o "ENTER" . Segue imagem em anexo, só queria que ele clicasse em OK automaticamente.

Wshell = CreateObject("WScript.Shell")

Do

bWindowFound = Wshell.AppActivate("Imprimir")

'WScript.Sleep 1000

Loop Until bWindowFound

bWindowFound = Wshell.AppActivate("Imprimir")

If (bWindowFound) Then Wshell.AppActivate "Imprimir"

'WScript.Sleep 1000

Wshell.SendKeys "{ENTER}"

'WScript.Sleep 1000

bWindowFound = Wshell.AppActivate("Imprimir")

Wshell.SendKeys "{ENTER}"

capturar.png (27.8 kB)
Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

0 Answers