Kaip pakeisti numatytąjį spausdintuvą naudojant VBA „Microsoft Excel 2016“

Sveiki!

Ar jūsų numatytasis spausdintuvas yra tolimame biuro kampe?

Norite atspausdinti lapą iš šalia esančio spausdintuvo?

Galite tai pakeisti spausdinimo dialogo skiltyje, bet taip pat tingite tai daryti?

Na, dauguma išradingų žmonių yra tinginiai, kaip tu ir aš.

Nesijaudink. As turiu tave. Padarykime tai vieną kartą ir naudodamiesi VBA …
Žemiau yra kodas, kuris pakeičia numatytąjį spausdintuvą į pasirinktą spausdintuvą ir grąžina pradinį spausdintuvą į numatytąjį spausdintuvą.

Sub Change_Default_Printer ()
Nustatyti mano tinklą = „CreateObject“ („WScript.network“)
mynetwork.setdefaultprinter "Jūsų spausdintuvo pavadinimas" 'rašyti čia yra jūsų spausdintuvo vardas
ActiveSheet.PrintOut
mynetwork.setdefaultprinter „Original_Default_Printer“ ‘grąžinkite pradinį spausdintuvą į numatytąjį “
Pabaiga Sub

Nulaužkime kiekvieną eilutę žemyn.

Nustatyti mano tinklą = CreateObject („WScript.network“): Čia mes sukūrėme objektą “mano tinklas" apie WScript. Tinklas naudojant VBA CreateObject () funkcija. Viduje jis grįžta “„IWshNetwork2“ objekto tipas.
WshNetwork2 suteikia prieigą prie kompiuterių tinklo. Galime žaisti su visais prie kompiuterio prijungtais įrenginiais. Kol kas naudosime spausdintuvus.
mynetwork.setdefaultprinter "Jūsų spausdintuvo pavadinimas": Šioje eilutėje mes anksčiau excel vba select spausdintuvas. numatytasis spausdintuvas nuosavybė WshNetwork2objektas naudojamas norint pasirinkti numatytąjį spausdintuvą. Tarp dvigubų kabučių („“) įrašykite spausdintuvo pavadinimą.
ActiveSheet.PrintOut: Ši komanda spausdina dokumentą iš pakeisto spausdintuvo. Čia atspausdinau aktyvų lapą. Galite duoti bet kokį lapo pavadinimą, kad jį iškart atspausdintumėte.
mynetwork.setdefaultprinter „Original_Default_Printer“: Ši eilutė grąžina pradinį spausdintuvą į numatytąjį. Tai neprivaloma. Jei nenorite keisti, praleiskite šią eilutę. Arba galite nustatyti jį kitam spausdintuvui dar nepasibaigus kodui.