Senhores, bom dia!
Tenho uma função no VBA do meu Access que imprimi um documento Word, é instanciado um objeto do tipo word e alterado o nome da impressora padrão para "PDFCreator".
A questão é a seguinte, várias pessoas utilizam isso. Mas o nome da impressora não está igual em todos os computados, por isso ocorre erro quando o nome da impressora não é exatamente "PDFCreator".
"Run time error '5216': Printer error"
Tem computador que o nome está como "Adobe PDF" ou "ImpressoraPDF" ou só "PDF".
Segue o código:
A minha intenção é na parte do código 'oWord.ActivePrinter = "PDFCreator"' alterar para encontrar o qualquer nome que possua "PDF" dentro.
oWord.ActivePrinter = '*PDF*'
Como eu faria isso pelo VBA??
Grande abraço a todos.
Leonardo Picoli
Tenho uma função no VBA do meu Access que imprimi um documento Word, é instanciado um objeto do tipo word e alterado o nome da impressora padrão para "PDFCreator".
A questão é a seguinte, várias pessoas utilizam isso. Mas o nome da impressora não está igual em todos os computados, por isso ocorre erro quando o nome da impressora não é exatamente "PDFCreator".
"Run time error '5216': Printer error"
Tem computador que o nome está como "Adobe PDF" ou "ImpressoraPDF" ou só "PDF".
Segue o código:
- Código:
Set oWord = CreateObject("Word.Application")
oldPrinter = oWord.ActivePrinter
oWord.ActivePrinter = "PDFCreator"
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="28", Copies:=1
oWord.ActivePrinter = oldPrinter
A minha intenção é na parte do código 'oWord.ActivePrinter = "PDFCreator"' alterar para encontrar o qualquer nome que possua "PDF" dentro.
oWord.ActivePrinter = '*PDF*'
Como eu faria isso pelo VBA??
Grande abraço a todos.
Leonardo Picoli