Kako spremeniti privzeti tiskalnik z uporabo VBA v programu Microsoft Excel 2016

Zdravo!

Ali je vaš privzeti tiskalnik v skrajnem kotu pisarne?

Ali želite natisniti svoj list iz tiskalnika?

To lahko spremenite v razdelku o tiskanem pogovornem oknu, vendar ste preveč leni, da bi to storili?

No, večina iznajdljivih ljudi je lenih, kot sva ti in jaz.

Ne skrbite. Imam te. Naredimo to enkrat z uporabo VBA …
Spodaj je koda, ki privzeti tiskalnik spremeni v vaš tiskalnik in izvirni tiskalnik nastavi na privzeti tiskalnik.

Sub Change_Default_Printer ()
Set mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Ime vašega tiskalnika" 'napiši ime vašega tiskalnika tukaj
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘nastavite izvirni tiskalnik na privzeto "
End Sub

Razbijmo vsako vrstico navzdol.

Set mynetwork = CreateObject ("WScript.network"): Tu smo ustvarili objekt "moje omrežje”Od WScript.Network z uporabo VBA CreateObject () funkcijo. Notranje se vrne "IWshNetwork2 " vrsto predmeta.
WshNetwork2 omogoča dostop do računalniškega omrežja. Lahko se igramo z vsemi napravami, povezanimi z računalnikom. Za zdaj bomo uporabljali tiskalnike.
mynetwork.setdefaultprinter "Ime vašega tiskalnika": V tej vrstici smo včasih tiskalnik excel vba select. privzeti tiskalnik lastnina WshNetwork2object se uporablja za izbiro privzetega tiskalnika po vaši izbiri. Ime tiskalnika zapišite med dvojne narekovaje (“”).
ActiveSheet.PrintOut: Ta ukaz natisne vaš dokument s spremenjenega tiskalnika. Tukaj sem natisnil aktivni list. Lahko daste poljubno ime lista, da ga takoj natisnete.
mynetwork.setdefaultprinter “Original_Default_Printer”: Ta vrstica povrne vaš prvotni tiskalnik na privzeto. To ni obvezno. Če se ne želite spremeniti, preskočite to vrstico. Lahko pa ga nastavite na drug tiskalnik, preden se koda konča.