Koda VBA za gumb za tiskanje v Excelu (5 primerov)

Hugh West

16-10-2023 Makri & amp; Excel VBA
  • Deliti To
Hugh West

Če lahko v delovnem listu programa Excel nastavimo gumb za tiskanje po meri, je lahko tiskanje listov zelo prijazno do uporabnika in prihrani čas. Z uporabo Makri VBA Zato vam bomo v tem članku predstavili 5 preprostih makrov, ki jih lahko uporabite VBA kodo za gumb za tiskanje v Excelu.

Prenesi delovni zvezek za prakso

Brezplačno predlogo Excel lahko prenesete s tega mesta in jo uporabite sami.

Koda VBA za ustvarjanje gumba za tiskanje.xlsm

5 primerov za uporabo kode VBA za gumb za tiskanje v Excelu

Najprej se seznanimo z našim naborom podatkov, ki predstavlja nekaj prodajalca prodajo v različnih Regije .

1. Uporabite kodo VBA za izdelavo gumba za tiskanje za pogovorno okno za tiskanje v programu Excel

Najprej bomo ustvarili Gumb za tiskanje in nato bo zanj napisal kode.

Koraki:

  • Kliknite . na naslednji način: Razvijalec >> Vstavite >> Polje za gumbe.

Kmalu zatem boste prejeli znak plus (+) v vašem kurzor .

  • Drag na spletni strani . kurzor glede na želeno velikost gumba in čez nekaj časa pogovorno okno z imenom Dodelitev makra se bo odprlo.

  • Podarite ime in . pritisnite Novo .

A VBA Prikaže se okno.

  • Nato vanj vnesite naslednje kode. 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Zdaj vrnite se nazaj v svoj list .

Razčlenitev kode

  • Tukaj sem ustvaril Pod postopek, DialogBox .
  • Nato uporabite Dialogi (xlDialogPrint).Show da odprete Pogovorno okno Tiskanje .

Gumb je ustvarjen.

  • Z desno tipko miške kliknite na gumb in izberite Urejanje besedila iz Kontekstni meni za spremembo imena gumba.

  • Kasneje, samo vrsta . ime in . kliknite vaš miška kjer koli zunaj gumba .

Nato pritisnite gumb Gumb .

Nato boste dobili Pogovorno okno Tiskanje Če želite, lahko Natisni zdaj.

Če nimate nobenega Tiskalnik v tem trenutku lahko Shrani kot PDF . za nadaljnjo uporabo ali za Natisni pozneje.

  • Zdaj pritisnite V REDU .

  • V tem trenutku samo dati ime in pritisnite Shrani .

Tukaj je natisnjen PDF .

Preberite več: Kako prilagoditi nastavitve tiskanja v Excelu (8 primernih trikov)

2. Uporabite kodo VBA za izdelavo gumba za tiskanje za aktivni list

V tem primeru bomo uporabili VBA na . natisni . Aktivno List .

Koraki:

  • Sledite prvi dvostopenjski korak iz prvega oddelka za ustvarjanje gumb in . Dodelitev makra .
  • Napišite Ime makra in pritisnite Novo .

Kmalu po tem je bila VBA odpre se okno.

  • Nato napišite naslednje kode v njem... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • Kasneje, vrnite se nazaj na

Razčlenitev kode

  • Tukaj sem ustvaril Pod postopek, ActiveSheet .
  • Nato uporabite PrintOut na . izberite . aktivni list in . natisni ga.
  • Zdaj samo pritisnite . . Gumb .

A pogovorno okno z imenom Shrani Izpis za tiskanje kot se bo odprlo.

  • Podarite ime in pritisnite Shrani .

Nato boste dobili natisnjeno PDF .

Enostavno lahko spremenite tiskalnik če jo potrebujete.

  • Kliknite . na spletni strani . Datoteka ob Domov

  • Nato izberite Natisni možnost in kliknite na spustni seznam da izberete Tiskalnik .

Preberite več: Kako natisniti vse liste v Excelu (3 metode)

3. Uporabite kodo VBA za ustvarjanje gumba za tiskanje za izbrane liste v Excelu

Če želite Natisni posebne izbrani listi potem je mogoče uporabiti tudi VBA .

Koraki:

  • Sledite prvi dvostopenjski korak iz prvega oddelka za ustvarjanje gumb in . dodelitev a makro .
  • Nato napišite Ime makra in pritisnite Novo .

Kmalu po tem je bila VBA odpre se okno.

  • Kasneje, vrsta naslednje kode v njem... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Nato vrnite se nazaj v svoj list .

Razčlenitev kode

  • Tukaj sem ustvaril Pod postopek, SelectedSheets .
  • Nato uporabite ActiveWindow na . izberite list iz aktivni Excel okno .
  • Nato uporabite PrintOut za tiskanje več izbrani listi .
  • Zdaj izberite liste in pritisnite Gumb za tiskanje . Izbral sem dva lista.

  • Podarite ime za PDF in pritisnite Shrani .

Spletna stran PDF datoteka ima t wo strani za dva lista .

Preberite več: Kako natisniti določene liste z uporabo makra VBA v Excelu (4 načini)

Podobna branja:

  • Kako natisniti Excelov list v velikosti A4 (4 načini)
  • Kako ohraniti glavo v Excelu pri tiskanju (3 načini)
  • Excel VBA: Kako dinamično nastaviti območje tiskanja (7 načinov)
  • Kako natisniti Excelov list s črtami (3 preprosti načini)
  • Kako natisniti graf v Excelu (5 načinov)

4. Embed Excel VBA za ustvarjanje gumba za tiskanje za določen list z izbranim obsegom

Tukaj bomo naredili Gumb za tiskanje na . natisni a izbrano območje iz poseben list .

Koraki:

  • Sledite prvi dvostopenjski korak iz prvega oddelka za ustvarjanje gumb in dodelite makro.
  • Napišite Ime makra in pritisnite Novo .

Kmalu po tem je bila VBA odpre se okno.

  • Nato napišite naslednje kode - 
 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub
  • Kasneje se vrnite na svoj list.

Razčlenitev kode

  • Tukaj sem ustvaril Pod postopek, SpecificSheetnRange .
  • Nato uporabite S spletno stranjo izjavo na izberite a posebne
  • Naslednji, PrintArea = "B2:D11".PrintOut bo izberite . obseg iz poseben list in bo Natisni ga.
  • Zdaj samo pritisnite . . Gumb za tiskanje .

  • Nastavite a ime za PDF in pritisnite Shrani .

To je natisnjeno poseben list.

Preberite več: Excel VBA: Nastavitev območja tiskanja za več območij (5 primerov)

5. Vgradnja programa Excel VBA za ustvarjanje gumba za tiskanje za aktivni list z izbranim obsegom

Poleg tega lahko izberite območje iz aktivni list in lahko naredite Gumb za tiskanje na . natisni ga z uporabo VBA .

Koraki:

  • Sledite prvi dvostopenjski korak iz prvega oddelka za ustvarjanje gumb in dodelite makro .
  • Pozneje napišite Ime makra in pritisnite Novo .

Kmalu po tem je bila VBA odpre se okno.

  • V VBA okno, napišite naslednje kode - 
 Sub ActiveSheetnRange() Razpon("B2:D11").PrintOut End Sub
  • Nato vrnite se nazaj v svoj list .

Razčlenitev kode

  • Tukaj sem ustvaril Pod postopek, ActiveSheetnRange .
  • Nato uporabite Razpon("B2:D11").PrintOut na . izberite a obseg in . tiskanje.
  • Pritisnite Gumb za tiskanje .

  • Podarite ime in pritisnite Shrani .

Nato boste dobili natisnjeno območje .

Preberite več: Excelov gumb za tiskanje določenih listov (z enostavnimi koraki)

Zaključek

Upam, da bodo zgoraj opisani postopki dovolj dobri za uporabo kode VBA za gumb za tiskanje v Excelu. V razdelku s komentarji lahko postavite kakršno koli vprašanje in me prosim obvestite o povratnih informacijah.

Prejšnja objava Kako poiskati enačbo trendne črte v Excelu (3 primerni načini)
Naslednja objava Kako uporabiti VLOOKUP, če celica vsebuje besedo v besedilu v Excelu

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.