VBA kods drukāšanas pogai programmā Excel (5 piemēri)

Hugh West

16-10-2023 Makroprogrammas & amp; Excel VBA
  • Dalīties Ar Šo
Hugh West

Ja mēs varam iestatīt pielāgotu pogu Drukāt mūsu Excel darblapā, tad tas var būt ļoti ērts lietotājam un ietaupīt laiku, lai drukātu lapas. Izmantojot VBA makroekrāni Tāpēc šajā rakstā jums tiks piedāvāti 5 vienkārši lietojami makrouzdevumi. VBA drukāšanas pogas kods programmā Excel.

Lejupielādēt Practice Workbook

No šejienes varat lejupielādēt bezmaksas Excel veidni un praktizēties.

VBA kods, lai izveidotu pogu Print Button.xlsm

5 piemēri, kā izmantot VBA kodu pogas Drukāt pogu programmā Excel

Vispirms iepazīstināsimies ar mūsu datu kopu, kas atspoguļo dažus pārdevēja pārdošanas apjomi dažādos Reģioni .

1. Izmantojiet VBA kodu, lai izveidotu pogu Drukāt dialoglodziņa pogu drukāšanai programmā Excel

Vispirms mēs izveidosim Drukas poga un pēc tam rakstīs tam paredzētus kodus.

Soļi:

  • Noklikšķiniet uz šādi: Izstrādātājs >> Ievietot >> Pogu kaste.

Drīz pēc tam saņemsiet plus zīme (+) savā kursors .

  • Velciet ka kursors atbilstoši jūsu vēlamajam pogas izmērs un pēc brīža dialoglodziņš ar nosaukumu Piešķirt makro atvērsies.

  • Sniedziet nosaukums un nospiediet Jauns .

A VBA tiks parādīts logs.

  • Pēc tam tajā ievadiet šādus kodus- 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Tagad atgriezties uz jūsu lapa .

Koda sadalījums

  • Šeit es izveidoju Sub procedūra, Dialoglodziņš .
  • Tad izmantoja Dialogi (xlDialogPrint).Show lai atvērtu Dialoglodziņš Drukāt .

Tiek izveidota poga.

  • Ar peles labo pogu noklikšķiniet uz par poga un izvēlieties Rediģēt tekstu no Konteksta izvēlne lai mainītu pogas nosaukumu.

  • Vēlāk, tikai tips . nosaukums un noklikšķiniet uz jūsu pele jebkur ārpus pogas .

Pēc tam vienkārši nospiediet Poga .

Tad jūs saņemsiet Dialoglodziņš Drukāt . Ja vēlaties, varat Drukāt to tagad.

Ja jums nav Printeris Šobrīd jūs varat Saglabāt to kā PDF . turpmākai izmantošanai vai Drukāt vēlāk.

  • Tagad nospiediet LABI .

  • Šobrīd vienkārši dodiet nosaukums un nospiediet Saglabāt .

Šeit ir drukāts PDF .

Lasīt vairāk: Kā pielāgot drukāšanas iestatījumus programmā Excel (8 piemēroti triki)

2. Izmantojiet VBA kodu, lai aktīvajā lapā izveidotu pogu Drukāt

Šajā gadījumā mēs izmantosim VBA uz drukāt . Aktīvais Loksne .

Soļi:

  • Sekojiet pirmais divpakāpju solis no pirmās sadaļas lai izveidotu poga un Makroreaktora piešķiršana .
  • Uzrakstiet Makro nosaukums un nospiediet Jauns .

Drīz pēc tam VBA tiks atvērts logs.

  • Tad rakstīt šādus elementus. kodi tajā... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • Vēlāk, atgriezties uz

Koda sadalījums

  • Šeit es izveidoju Sub procedūra, ActiveSheet .
  • Tad izmantoja PrintOut uz atlasīt . aktīvā lapa un drukāt to.
  • Tagad tikai nospiediet . Poga .

A dialoglodziņš ar nosaukumu Saglabāt Drukāt produkciju kā atvērsies.

  • Sniedziet nosaukums un nospiediet Saglabāt .

Pēc tam jūs saņemsiet izdrukātu PDF .

Varat viegli mainīt printeris ja jums tas ir nepieciešams.

  • Noklikšķiniet uz vietnē Faili blakus Sākums

  • Pēc tam atlasiet Drukāt opcija un noklikšķiniet uz par nolaižamais lai atlasītu Printeris .

Lasīt vairāk: Kā izdrukāt visas lapas programmā Excel (3 metodes)

3. Pielietojiet VBA kodu, lai izveidotu pogu drukāšanai atlasītajām lapām programmā Excel

Ja vēlaties Drukāt īpašs atlasītās lapas tad tas ir iespējams arī, izmantojot VBA .

Soļi:

  • Sekojiet pirmais divpakāpju solis no pirmās sadaļas lai izveidotu poga un piešķirt a makro .
  • Tad rakstiet Makro nosaukums un nospiediet Jauns .

Drīz pēc tam VBA tiks atvērts logs.

  • Vēlāk, tips šādus elementus. kodi tajā... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Tad atgriezties uz jūsu lapa .

Koda sadalījums

  • Šeit es izveidoju Sub procedūra, SelectedSheets .
  • Tad izmantoja ActiveWindow uz izvēlieties lapu no aktīvā Excel logs .
  • Tālāk izmantojiet PrintOut drukāt vairāki atlasīts lapas .
  • Tagad atlasīt lapas un nospiediet Drukas poga . Es izvēlējos divas lapas.

  • Sniedziet nosaukums par PDF un nospiediet Saglabāt .

Portāls PDF failā ir t wo lapaspuses par divas lapas .

Lasīt vairāk: Kā izdrukāt konkrētas lapas, izmantojot VBA makroprogrammu programmā Excel (4 veidi)

Līdzīgi lasījumi:

  • Kā izdrukāt Excel lapu A4 formātā (4 veidi)
  • Kā saglabāt galveni programmā Excel, drukājot (3 veidi)
  • Excel VBA: kā dinamiski iestatīt drukāšanas apgabalu (7 veidi)
  • Kā izdrukāt Excel lapu ar līnijām (3 vienkārši veidi)
  • Kā izdrukāt grafiku programmā Excel (5 veidi)

4. Iebūvējiet Excel VBA, lai izveidotu pogu Drukāt konkrētu lapu ar atlasīto diapazonu

Šeit mēs izveidosim Drukas poga uz drukāt a izvēlētais diapazons no īpaša lapa .

Soļi:

  • Sekojiet pirmais divpakāpju solis no pirmās sadaļas lai izveidotu poga un piešķiriet makro.
  • Uzrakstiet Makro nosaukums un nospiediet Jauns .

Drīz pēc tam VBA tiks atvērts logs.

  • Tad rakstīt šādus elementus. kodi - 
 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End With End Sub
  • Vēlāk atgriezieties pie savas lapas.

Koda sadalījums

  • Šeit es izveidoju Sub procedūra, SpecificSheetnRange .
  • Tad izmantoja Ar paziņojumu, lai atlasīt a īpašs
  • Nākamais, PrintArea = "B2:D11".PrintOut būs atlasīt . diapazons no īpaša lapa un Drukāt to.
  • Tagad tikai nospiediet . Drukas poga .

  • Iestatiet nosaukums par PDF un nospiediet Saglabāt .

Tas ir iespiests īpaša lapa.

Lasīt vairāk: Excel VBA: drukāšanas apgabala iestatīšana vairākiem diapazoniem (5 piemēri)

5. Excel VBA iestrādāšana, lai izveidotu pogu drukāšanai aktīvai lapai ar atlasīto diapazonu

Turklāt varat atlasīt diapazonu no aktīvā lapa un var izveidot Drukas poga uz drukāt to, izmantojot VBA .

Soļi:

  • Sekojiet līdzi pirmais divpakāpju solis no pirmās sadaļas lai izveidotu poga un piešķirt makro .
  • Vēlāk uzrakstiet Makro nosaukums un nospiediet Jauns .

Drīz pēc tam VBA tiks atvērts logs.

  • In the VBA logs, rakstīt šādus elementus. kodi - 
 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub
  • Tad atgriezties uz jūsu lapa .

Koda sadalījums

  • Šeit es izveidoju Sub procedūra, ActiveSheetnRange .
  • Tad izmantoja Range("B2:D11").PrintOut uz atlasīt a diapazons un drukāt.
  • Nospiediet Drukas poga .

  • Sniedziet nosaukums un nospiediet Saglabāt .

Tad jūs saņemsiet drukātais diapazons .

Lasīt vairāk: Excel poga konkrētu lapu drukāšanai (ar vienkāršiem soļiem)

Secinājums

Es ceru, ka iepriekš aprakstītās procedūras būs pietiekami labas, lai izmantotu VBA kodu. drukāšanas poga Lūdzu, uzdodiet jebkuru jautājumu komentāru sadaļā un sniedziet man atsauksmes.

Iepriekšējais ieraksts Kā atrast Trendline vienādojumu programmā Excel (3 piemēroti veidi)
Nākamais ieraksts Kā lietot VLOOKUP, ja šūna satur vārdu tekstā programmā Excel

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.