Como alterar a impressora padrão usando VBA no Microsoft Excel 2016

Olá!

A sua impressora padrão está localizada no canto mais distante do escritório?

Quer imprimir sua folha com a impressora ao seu lado?

Você pode alterá-lo na seção de diálogo de impressão, mas você está com preguiça de fazer isso também?

Bem, a maioria das pessoas inventivas são preguiçosas, como você e eu.

Não se preocupe. Eu entendi você. Vamos fazer isso usando VBA de uma vez por todas …
Abaixo está o código que altera sua impressora padrão para a sua escolha de impressora e restaura a impressora original para a impressora padrão.

Sub Change_Default_Printer ()
Definir mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Nome da sua impressora" 'escrever o nome da sua impressora aqui
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘definir de volta a impressora original para o padrão ”
End Sub

Vamos quebrar cada linha.

Set mynetwork = CreateObject ("WScript.network"): Aqui, criamos um objeto “minha rede" do WScript.Network usando VBA's CreateObject () função. Internamente retorna “IWshNetwork2 ” tipo de objeto.
WshNetwork2 dá acesso à rede de computadores. Podemos brincar com todos os dispositivos conectados ao computador. Por enquanto, usaremos impressoras.
mynetwork.setdefaultprinter "Nome da sua impressora": Nesta linha, costumávamos excel vba selecionar impressora. impressora padrão propriedade de WshNetwork2objeto é usado para selecionar a impressora padrão de sua escolha. Escreva o nome da sua impressora entre aspas duplas (“”).
ActiveSheet.PrintOut: Este comando imprime seu documento da impressora alterada. Eu imprimi a planilha ativa aqui. Você pode dar qualquer nome de folha para imprimi-lo imediatamente.
mynetwork.setdefaultprinter “Original_Default_Printer”: Esta linha define sua impressora original de volta ao padrão. Isso é opcional. Se você não quiser mudar, pule esta linha. Ou você pode configurá-lo para alguma outra impressora antes que seu código termine.