Ako zmeniť predvolenú tlačiareň pomocou VBA v programe Microsoft Excel 2016

Ahoj!

Nachádza sa vaša predvolená tlačiareň v vzdialenom rohu kancelárie?

Chcete vytlačiť list z tlačiarne po svojom boku?

Môžete to zmeniť v časti dialógového okna tlače, ale ste príliš leniví na to, aby ste to urobili tiež?

Väčšina vynaliezavých ľudí je lenivých, ako ty a ja.

Nebojte sa. Mám ťa. Urobme to raz a navždy pomocou VBA …
Nasleduje kód, ktorý zmení predvolenú tlačiareň na vami zvolenú tlačiareň a vráti pôvodnú tlačiareň na predvolenú tlačiareň.

Sub Change_Default_Printer ()
Nastaviť mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Vaše meno tlačiarne" 'napísať tu zadajte meno svojich tlačiarní
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘nastaviť pôvodnú tlačiareň na predvolenú hodnotu “
Koniec pod

Zrušíme každý riadok.

Nastaviť mynetwork = CreateObject ("WScript.network"): Tu sme vytvorili objekt „moja sieť“Z WScript.Network pomocou VBA CreateObject () funkciu. Interne sa vráti „IWshNetwork2 ” typ predmetu.
WshNetwork2 poskytuje prístup k počítačovej sieti. Môžeme sa hrať so všetkými zariadeniami pripojenými k počítaču. Zatiaľ budeme používať tlačiarne.
mynetwork.setdefaultprinter "Vaše meno tlačiarne": V tomto riadku sme kedysi používali excel vba vyberte tlačiareň. predvolená tlačiareň majetok WshNetwork2Objekt sa používa na výber predvolenej tlačiarne podľa vášho výberu. Napíšte názov tlačiarne do dvojitých úvodzoviek („“).
ActiveSheet.PrintOut: Tento príkaz vytlačí dokument zo zmenenej tlačiarne. Aktívny list som vytlačil tu. Môžete dať ľubovoľný názov hárka a ihneď ho vytlačiť.
mynetwork.setdefaultprinter “Original_Default_Printer”: Tento riadok nastaví pôvodnú tlačiareň na predvolené. Toto je voliteľné. Ak to nechcete zmeniť, preskočte tento riadok. Alebo ho môžete nastaviť na inú tlačiareň, než sa skončí váš kód.