Kako promijeniti zadani pisač pomoću VBA u programu Microsoft Excel 2016

Bok tamo!

Je li vaš zadani pisač smješten u krajnjem kutu ureda?

Želite li ispisati svoj list s pisača pored sebe?

Možete ga promijeniti u odjeljku dijaloga za ispis, ali ste previše lijeni da to učinite?

Pa, većina inventivnih ljudi je lijena, poput tebe i mene.

Ne brinite. Imam te. Učinimo to jednom i zauvijek koristeći VBA …
U nastavku se nalazi kôd koji vaš zadani pisač mijenja prema vašem izboru pisača i vraća izvorni pisač na zadani pisač.

Sub Change_Default_Printer ()
Postavi moju mrežu = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Ime vašeg pisača" 'pisati ovdje se imenuju vaši pisači
ActiveSheet.PrintOut
mynetwork.setdefaultprinter "Izvorni_Default_Printer" ‘vratite izvorni pisač na zadane postavke ”
Kraj podm

Razbijmo svaki redak.

Postavi moju mrežu = CreateObject ("WScript.network"): Ovdje smo stvorili objekt "moju mrežu”Od WScript.Network koristeći VBA -e CreateObject () funkcija. Interno se vraća “IWshNetwork2 ” vrsta objekta.
WshNetwork2 daje pristup mreži računala. Možemo se igrati sa svim uređajima spojenim na računalo. Za sada ćemo koristiti pisače.
mynetwork.setdefaultprinter "Ime vašeg pisača": U ovom smo retku nekad pisač excel vba select. zadani pisač vlasništvo WshNetwork2object koristi se za odabir zadanog pisača po vašem izboru. Napišite naziv vašeg pisača između dvostrukih navodnika (“”).
ActiveSheet.PrintOut: Ova naredba ispisuje vaš dokument s promijenjenog pisača. Ovdje sam ispisao aktivni list. Možete dati bilo kojem nazivu lista da ga odmah ispisuje.
mynetwork.setdefaultprinter "Izvorni_Default_Printer": Ovaj redak vraća vaš izvorni pisač na zadani. Ovo nije obavezno. Ako ne želite promijeniti, preskočite ovaj redak. Ili ga možete postaviti na neki drugi pisač prije nego što kôd završi.