Cum se schimbă imprimanta implicită utilizând VBA în Microsoft Excel 2016

Bună!

Imprimanta dvs. implicită este situată în colțul îndepărtat al biroului?

Doriți să imprimați foaia de pe imprimantă lângă dvs.?

O puteți schimba în secțiunea de dialog tipărit, dar sunteți prea leneși să faceți și asta?

Ei bine, majoritatea oamenilor inventivi sunt leneși, ca și mine și tu.

Nu vă faceți griji. Te-am prins. Să o facem folosind VBA o dată pentru totdeauna …
Mai jos este codul care schimbă imprimanta implicită la alegerea imprimantei și readuce imprimanta originală la imprimanta implicită.

Sub Change_Default_Printer ()
Setați rețeaua mea = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Numele imprimantei" 'scrie numele imprimantelor dvs. aici
ActiveSheet.PrintOut
mynetwork.setdefaultprinter „Original_Default_Printer” ‘readuceți imprimanta originală la valorile implicite ”
Sfârșitul Sub

Să descifrăm fiecare linie.

Set mynetwork = CreateObject ("WScript.network"): Aici am creat un obiect „rețeaua mea" de WScript.Network folosind VBA CreateObject () funcţie. Intern revine „IWshNetwork2 ” tipul obiectului.
WshNetwork2 oferă acces la rețeaua de calculatoare. Ne putem juca cu toate dispozitivele conectate la computer. Deocamdată vom folosi imprimante.
mynetwork.setdefaultprinter "Numele imprimantei": În această linie, obișnuiam imprimanta excel vba select. imprimantă implicită proprietatea WshNetwork2obiectul este utilizat pentru a selecta imprimanta implicită la alegerea dvs.. Scrieți numele imprimantei între ghilimele duble („”).
ActiveSheet.PrintOut: Această comandă tipărește documentul dvs. de la imprimanta modificată. Am imprimat foaia activă aici. Puteți da orice nume de foaie pentru a o imprima imediat.
mynetwork.setdefaultprinter „Original_Default_Printer”: Această linie setează imprimanta originală la valorile implicite. Acest lucru este opțional. Dacă nu doriți să modificați, săriți peste acest rând. Sau o puteți seta la o altă imprimantă înainte ca codul să se termine.