Application.ActivePrinter (Word)
Retorna ou define o nome da impressora ativa. String de leitura/gravação.
A definição de impressora usando a propriedade ActivePrinter altera a impressora padrão. Para obter mais informações, consulte Setting ActivePrinter Changes System Default Printer .
MsgBox "The name of the active printer is " & ActivePrinter