Kā nomainīt noklusējuma printeri, izmantojot Microsoft Excel 2016 VBA

Anonim

Sveiki!

Vai jūsu noklusējuma printeris atrodas biroja tālākajā stūrī?

Vai vēlaties izdrukāt savu lapu no blakus esošā printera?

Jūs varat to mainīt drukāšanas dialoga sadaļā, bet arī esat slinks, lai to izdarītu?

Nu, lielākā daļa izgudrojuma cilvēku ir slinki, piemēram, jūs un es.

Neuztraucieties. Es tevi dabūju. Darīsim to vienreiz, izmantojot VBA …
Zemāk ir kods, kas jūsu noklusējuma printeri maina uz jūsu izvēlēto printeri un atiestata sākotnējo printeri uz noklusējuma printeri.

Sub Change_Default_Printer ()
Set mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Jūsu printera nosaukums" 'rakstīt šeit ir jūsu printera vārds
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “Original_Default_Printer” ‘iestatiet sākotnējo printeri uz noklusējuma iestatījumiem ”
Beigt apakš

Sadalīsim katru rindu uz leju.

  1. Set mynetwork = CreateObject ("WScript.network"): Šeit mēs esam izveidojuši objektu "mans tīkls”No WScript. Tīkls izmantojot VBA CreateObject () funkciju. Iekšēji tas atgriežas "IWshNetwork2 ” objekta veids.
    WshNetwork2 nodrošina piekļuvi datoru tīklam. Mēs varam spēlēties ar visām datoram pievienotajām ierīcēm. Pagaidām mēs izmantosim printerus.
  2. mynetwork.setdefaultprinter "Jūsu printera nosaukums": Šajā rindā mēs to izmantojām excel vba select printeris. noklusējuma printeris īpašums WshNetwork2objekts tiek izmantots, lai izvēlētos noklusējuma printeri pēc jūsu izvēles. Starp pēdiņām (“”) ierakstiet printera nosaukumu.
  3. ActiveSheet.PrintOut: Šī komanda izdrukā jūsu dokumentu no mainītā printera. Šeit esmu izdrukājis aktīvo lapu. Jūs varat dot jebkuru lapas nosaukumu, lai to nekavējoties izdrukātu.
  4. mynetwork.setdefaultprinter “Original_Default_Printer”: Šī līnija atgriež sākotnējo printeri pēc noklusējuma. Tas nav obligāti. Ja nevēlaties mainīt, izlaidiet šo rindu. Vai arī varat iestatīt to citam printerim pirms koda beigām.

Tātad, kā bija? Vai tas jums izdevās? Vai tas bija grūti? Ļaujiet man zināt komentāros. Sekojiet līdzi novatoriskākām un vienkāršākām nodarbībām. Čau.

Populāri raksti:

50 Excel saīsne produktivitātes paaugstināšanai

Kā lietot funkciju VLOOKUP programmā Excel

Funkcijas COUNTIF izmantošana programmā Excel 2016

Kā lietot funkciju SUMIF programmā Excel