Jei "Excel" darbalapyje galime nustatyti pasirinktinį spausdinimo mygtuką, tada spausdinti lapus gali būti labai patogu ir taupyti laiką. VBA makrokomandos , galime tai lengvai padaryti. Taigi šiame straipsnyje pateiksime jums 5 paprastas makrokomandas, kurias galite naudoti VBA "Excel" spausdinimo mygtuko kodą.

Atsisiųsti praktikos sąsiuvinį

Nemokamą "Excel" šabloną galite atsisiųsti iš čia ir praktikuotis savarankiškai.

5 pavyzdžiai, kaip naudoti VBA kodą "Excel" spausdinimo mygtukui

Pirmiausia susipažinkime su mūsų duomenų rinkiniu, kuriame pateikiami kai kurie pardavėjo pardavimai skirtingose Regionai .

1. Naudokite VBA kodą, kad "Excel" dialogo lange būtų spausdinamas spausdinimo mygtukas

Pirmiausia sukursime Spausdinimo mygtukas ir tada parašys jam skirtus kodus.

Žingsniai:

• Spustelėkite taip: Kūrėjas >> Įdėkite >> Mygtukų dėžutė.

Netrukus gausite pliuso ženklas (+) savo žymeklis .

• Drag kad žymeklis pagal pageidaujamą mygtuko dydis ir po kurio laiko dialogo langas pavadinimu Priskirti makrokomandą atsivers.

• Suteikite pavadinimas ir paspauskite Naujas .

A VBA bus rodomas langas.

• Tada jame įveskite šiuos kodus.

 Dalis DialogBox() Application.Dialogs(xlDialogPrint).Show Pabaiga Dalis 

• Dabar grįžti atgal į savo lapas .

Kodo suskirstymas

• Čia sukūriau Sub procedūra, Dialogo langas .
• Tada naudokite Dialogai (xlDialogPrint).Show atidaryti Spausdinimo dialogo langas .

Sukuriamas mygtukas.

• Dešiniuoju pelės klavišu spustelėkite apie Mygtukas ir pasirinkite Redaguoti tekstą iš Kontekstinis meniu norėdami pakeisti mygtuko pavadinimą.

• Vėliau, tik tipas . pavadinimas ir spustelėkite jūsų pelė bet kur už mygtuko ribų .

Tada tiesiog paspauskite Mygtukas .

Tada gausite Spausdinimo dialogo langas Jei norite, galite Spausdinti dabar.

Jei neturite jokių Spausdintuvas šiuo metu galite Išsaugoti jį kaip PDF . tolesniam naudojimui arba Spausdinti vėliau.

• Dabar paspauskite GERAI .

• Šiuo metu tiesiog duokite pavadinimas ir paspauskite Išsaugoti .

Čia išspausdinta PDF .

Skaityti daugiau: Kaip koreguoti spausdinimo nustatymus programoje "Excel" (8 tinkami triukai)

2. Naudodami VBA kodą sukurkite aktyviojo lapo spausdinimo mygtuką

Čia naudosime VBA į spausdinti . Aktyvus Lapas .

Žingsniai:

• Sekite pirmasis dviejų žingsnių iš pirmojo skyriaus sukurti Mygtukas ir Makrokomandos priskyrimas .
• Parašykite Makro pavadinimas ir paspauskite Naujas .

Netrukus po to, kai VBA atsidarys langas.

• Tada rašyti šie dalykai kodai jame...

 Sub ActiveSheet() ActiveSheet.PrintOut End Sub 

• Vėliau, grįžti atgal į

Kodo suskirstymas

• Čia sukūriau Sub procedūra, ActiveSheet .
• Tada naudokite PrintOut į pasirinkite . aktyvus lapas ir spausdinti jį.

• Dabar tiesiog paspauskite . Mygtukas .

A dialogo langas pavadinimu Išsaugoti Spausdinti išvestį kaip atsivers.

• Suteikite pavadinimas ir paspauskite Išsaugoti .

Tada gausite atspausdintą PDF .

Galite lengvai pakeisti spausdintuvas jei reikia.

• Spustelėkite svetainėje Failas šalia Pagrindinis

• Tada pasirinkite Spausdinti parinktis ir spustelėkite apie išskleidžiamąjį pasirinkti Spausdintuvas .

Skaityti daugiau: Kaip spausdinti visus "Excel" lapus (3 metodai)

3. Pritaikykite VBA kodą, kad sukurtumėte pasirinktų "Excel" lapų spausdinimo mygtuką

Jei norite Spausdinti specifinis atrinkti lapai taip pat galima naudoti VBA .

Žingsniai:

• Sekite pirmasis dviejų žingsnių iš pirmojo skyriaus sukurti Mygtukas ir priskirti a makro .
• Tada parašykite Makro pavadinimas ir paspauskite Naujas .

Netrukus po to, kai VBA atsidarys langas.

• Vėliau, tipas šie dalykai kodai jame...

 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub 

Tada grįžti atgal į savo lapas .

Kodo suskirstymas

• Čia sukūriau Sub procedūra, SelectedSheets .
• Tada naudokite ActiveWindow į pasirinkite lapą iš aktyvus "Excel" langas .
• Toliau naudokite PrintOut spausdinti kelios pasirinktas lapai .

• Dabar pasirinkite lapus ir paspauskite Spausdinimo mygtukas . pasirinkau du lapus.

• Suteikite pavadinimas už PDF ir paspauskite Išsaugoti .

Svetainė PDF failas turi t wo puslapių už du lapai .

Skaityti daugiau: Kaip spausdinti konkrečius lapus naudojant "Excel" VBA makrokomandą (4 būdai)

Panašūs skaitiniai:

• Kaip atsispausdinti "Excel" lapą A4 formatu (4 būdai)
• Kaip išsaugoti "Excel" antraštę spausdinant (3 būdai)
• "Excel VBA": kaip dinamiškai nustatyti spausdinimo sritį (7 būdai)
• Kaip spausdinti "Excel" lapą su linijomis (3 paprasti būdai)
• Kaip spausdinti grafiką programoje "Excel" (5 būdai)

4. Įterpti "Excel VBA", kad sukurtumėte konkretaus lapo su pasirinktu diapazonu spausdinimo mygtuką

Čia mes sukursime Spausdinimo mygtukas į spausdinti a pasirinktas diapazonas iš specifinis lapas .

Žingsniai:

• Sekite pirmasis dviejų žingsnių iš pirmojo skyriaus sukurti Mygtukas ir priskirkite makrokomandą.
• Parašykite Makro pavadinimas ir paspauskite Naujas .

Netrukus po to, kai VBA atsidarys langas.

• Tada rašyti šie dalykai kodai -

 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub 

• Vėliau grįžkite prie savo lapo.

Kodo suskirstymas

• Čia sukūriau Sub procedūra, SpecificSheetnRange .
• Tada naudokite Su pareiškimas į pasirinkite a specifinis
• Kitas, PrintArea = "B2:D11".PrintOut bus pasirinkite . diapazonas iš specifinis lapas ir Spausdinti jį.

• Dabar tiesiog paspauskite . Spausdinimo mygtukas .

• Nustatykite a pavadinimas už PDF ir paspauskite Išsaugoti .

Tai atspausdinta specifinis lapas.

Skaityti daugiau: "Excel VBA": spausdinimo srities nustatymas keliems intervalams (5 pavyzdžiai)

5. Įterpti "Excel VBA", kad sukurtumėte aktyvaus lapo su pasirinktu diapazonu spausdinimo mygtuką

Be to, galite pasirinkti diapazoną iš aktyvus lapas ir gali sukurti Spausdinimo mygtukas į spausdinti jį naudodami VBA .

Žingsniai:

• Sekite pirmasis dviejų žingsnių iš pirmojo skyriaus sukurti Mygtukas ir priskirti makro .
• Vėliau parašykite Makro pavadinimas ir paspauskite Naujas .

Netrukus po to, kai VBA atsidarys langas.

• Į VBA langas, rašyti šie dalykai kodai -

 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub 

• Tada grįžti atgal į savo lapas .

Kodo suskirstymas

• Čia sukūriau Sub procedūra, ActiveSheetnRange .
• Tada naudokite Range("B2:D11").PrintOut į pasirinkite a diapazonas ir spausdinti.

• Paspauskite Spausdinimo mygtukas .

• Suteikite pavadinimas ir paspauskite Išsaugoti .

Tada gausite atspausdintas asortimentas .

Skaityti daugiau: "Excel" mygtukas konkretiems lapams spausdinti (paprastais žingsniais)

Išvada

Tikiuosi, kad pirmiau aprašytos procedūros bus pakankamai geros, kad būtų galima naudoti VBA kodą spausdinimo mygtukas "Excel" programoje. Drąsiai užduokite bet kokį klausimą komentarų skiltyje ir pateikite man atsiliepimų.