Jak změnit výchozí tiskárnu pomocí VBA v aplikaci Microsoft Excel 2016

Ahoj!

Nachází se vaše výchozí tiskárna ve vzdáleném rohu kanceláře?

Chcete vytisknout list z tiskárny po svém boku?

Můžete to změnit v sekci dialogů tisku, ale jste příliš líní, abyste to také udělali?

Většina vynalézavých lidí je líných, jako ty a já.

Nedělej si starosti. Mám tě. Pojďme to udělat jednou a navždy pomocí VBA …
Níže je uveden kód, který změní výchozí tiskárnu na vámi zvolenou tiskárnu a vrátí původní tiskárnu na výchozí tiskárnu.

Sub Change_Default_Printer ()
Nastavit mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Název vaší tiskárny" 'napsat zde pojmenujte své tiskárny
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘nastavit původní tiskárnu na výchozí ”
End Sub

Prolomme každý řádek dolů.

Nastavit mynetwork = CreateObject ("WScript.network"): Zde jsme vytvořili objekt „moje síť“Z WScript.Network pomocí VBA CreateObject () funkce. Interně se vrací „IWshNetwork2 ” typ objektu.
WshNetwork2 poskytuje přístup k síti počítačů. Můžeme si hrát se všemi zařízeními připojenými k počítači. Prozatím budeme používat tiskárny.
mynetwork.setdefaultprinter "Název vaší tiskárny": V tomto řádku jsme zvyklí excel vba vybrat tiskárnu. výchozí tiskárna majetek WshNetwork2Objekt slouží k výběru výchozí tiskárny podle vašeho výběru. Napište název vaší tiskárny do uvozovek (“”).
ActiveSheet.PrintOut: Tento příkaz vytiskne dokument ze změněné tiskárny. Aktivní list jsem vytiskl zde. Libovolnému názvu listu můžete dát okamžitý tisk.
mynetwork.setdefaultprinter “Original_Default_Printer”: Tento řádek nastaví původní tiskárnu na výchozí. Toto je volitelné. Pokud nechcete měnit, tento řádek přeskočte. Nebo jej můžete nastavit na jinou tiskárnu, než váš kód skončí.