Vaikeprinteri muutmine Microsoft Excel 2016 VBA abil

Tere!

Kas teie vaikeprinter asub kontori kaugemas nurgas?

Kas soovite oma lehe printida teie kõrval asuvast printerist?

Saate seda printimisdialoogi jaotises muuta, kuid olete ka selleks liiga laisk?

Noh, enamik leidlikke inimesi on laisad, nagu sina ja mina.

Ärge muretsege. Sain sind kätte. Teeme seda VBA abil üks kord ja kõik…
Allpool on kood, mis muudab teie vaikeprinteri teie valitud printeriks ja tagastab algse printeri vaikeprinteriks.

Alammuutmise_default_printer ()
Set mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Teie printeri nimi" 'kirjutada siin on teie printeri nimi
ActiveSheet.PrintOut
mynetwork.setdefaultprinter „Originaali_detailiprinter” ‘lähtestage algne printer vaikeseadetele ”
End Sub

Murrame iga rea alla.

Set mynetwork = CreateObject ("WScript.network"): Siin oleme loonud objekti "minu võrk”Kohta WScript. Võrk kasutades VBA -sid CreateObject () funktsiooni. Sisemiselt naaseb see "IWshNetwork2 ” objekti tüüp.
WshNetwork2 annab juurdepääsu arvutivõrgule. Saame mängida kõigi arvutiga ühendatud seadmetega. Praegu kasutame printereid.
mynetwork.setdefaultprinter "Teie printeri nimi": Selles reas oleme harjunud excel vba select printer. vaikeprinter vara WshNetwork2objekti kasutatakse teie valitud vaikeprinteri valimiseks. Kirjutage oma printeri nimi kahekordse jutumärgi (“”) vahele.
ActiveSheet.PrintOut: See käsk prindib teie dokumendi muudetud printerist. Aktiivse lehe olen siia trükkinud. Sellele kohe printimiseks võite anda mis tahes lehe nime.
mynetwork.setdefaultprinter „Originaali_detailiprinter”: See rida määrab teie algse printeri vaikeseadetele. See on vabatahtlik. Kui te ei soovi seda muuta, jätke see rida vahele. Või saate selle enne koodi lõppu mõnele muule printerile seada.