VBA väljatrükk - Kuidas Exceli VBA-d printimiseks kasutada? (koos näidetega)

Lang L: none (table-of-contents)

Mis on printimine VBA Excelis?

VBA-s printimine on väga sarnane Exceli printimisega, kui meil on olulised andmed Excelis või arvutustabelites, siis on nende turvaliseks hoidmiseks ainus viis salvestada need pdf-faili või printida, printimiseks peame seadistama printimiskäsku VBA kõigepealt enne selle kasutamist, mida see käsk teeb, kui andmed prinditakse või kirjutatakse teise faili.

Mis on printimine VBA Excelis?

VBA väljatrükk pole midagi, kuid nagu tavaliselt, siis tavalises töölehes printimisel pole selles vahet. Exceli VBA koodi abil saame printida kogu töölehe andmed. Saame printida töövihiku, graafikud, määratud vahemiku jne.

Pärast kogu rasket tööd, mille oleme aruandele juhile esitanud, saadame tavaliselt e-kirju. Mõnel juhul vajab koosolekul teie juhataja teie aruannete paberkoopiat. Nendes stsenaariumides peate printima aruande, mis teil on arvutustabelis. Üks põhjus, miks teie juht vajab aruandest väljaprintimist, võib olla väga suur aruanne, mida arvutis lugeda. Töölehel peate olema aruannete printimisega juba tuttav. Selles artiklis näitame teile, kuidas printida VBA-kodeerimise abil. Järgige seda artiklit järgmise 15 minuti jooksul, et õppida aruandeid VBA-s printima.

VBA PrintOuti süntaks VBA Excelis

Enne kui näeme süntaksit, lubage mul see kõigepealt selgitada. Mida me trükime? Trükime vahemikke, graafikuid, töölehti, töövihikuid. Seega on kõigi nende eesmärkidega saadaval meetod PrintOut () .

(Alates): millelt tuleb printimist alustada. Kui me ei esita mingit väärtust, käsitletakse seda esimesel lehel.

(Saaja): Mis peaks olema viimane prinditav leht? Kui seda ignoreeritakse, prinditakse see kuni viimase leheni.

(Koopiad): mitu eksemplari peate printima.

(Eelvaade): kas soovite enne printimise jätkamist näha prindi eelvaadet? Kui jah, on argumendiks TRUE, kui mitte FALSE.

Näited printimisest VBA Excelis

Allpool on toodud näited printimisest VBA Excelis.

Illustreerimise eesmärgil olen loonud näivandmed, nagu on näidatud alloleval pildil.

Nüüd peame printima aruande A1-st D14-ni. See on minu ulatus. Menüüsse PrintOut pääsemiseks sisestage VBA-koodi vahemik.

Kood:

Alamprint_näide1 () vahemik ("A1: D14") Lõpp alam

Nüüd pöörduge PrintOut meetodi poole.

Kood:

Alamprint_näide1 () vahemik ("A1: D14"). Väljatrükk Lõpp alam

Ma ei puuduta ühtegi parameetrit. Sellest piisab valitud vahemiku printimiseks. Kui käivitan selle koodi, prindib see vahemiku vahemikust A1 kuni D14.

Väljatrükimeetodi parameetrid VBA Excelis

Nüüd olen samad andmed kopeerinud ja kleepinud, et kasutada VBA Exceli muude meetodite PrintOut parameetreid.

Kui tahame printida kogu lehe, võime kogu lehte nimetada aktiivseks leheks. See katab kogu selles oleva lehe.

Kood kogu töölehe printimiseks.

Kood:

Alamprint_näide1 () ActiveSheet.UsedRange.PrintOut 'See prindib kogu lehe kasutatud vahemiku. Lõpeta alam

Kood, mis viitab lehe nimele .

Kood:

Alamprint_näide1 () - lehed ("Ex 1"). UsedRange.PrintOut 'See prindib ka kogu lehe kasutatud ala nimega Ex 1. End Sub

Kood kõigi töövihiku töölehtede printimiseks .

Kood:

Alamprint_näide1 () töölehed.UsedRange.PrintOut 'See prindib ka kogu töövihiku kogu lehe kogu kasutatud vahemiku. Lõpeta alam

Kood kogu töövihiku andmete printimiseks .

Kood:

Alamprint_näide1 () ThisWorkbook.UsedRange.PrintOut 'See prindib ka kogu töövihiku kogu lehe kogu kasutatud vahemiku. Lõpeta alam

Kood ainult valitud ala printimiseks .

Kood:

Alamprint_näide1 () Selection.PrintOut 'See prindib ainult valitud vahemiku End Sub

Kuidas kasutada Exceli VBA printimismeetodi parameetreid?

Nüüd näeme, kuidas printimismeetodi parameetreid kasutada. Nagu ma ütlesin, olin laiendanud andmeid teiste omaduste kasutamiseks.

Kindlasti ei hakka see ühele lehele printima. Valige vahemik A1 kuni S29.

Kood:

Sub Print_Example2() Range ("A1:S29") End Sub

Now select the print out method.

Code:

Sub Print_Example2() Range("A1:S29").PrintOut End Sub

The first & second parameters are From & To, what is the starting & ending pages position. By default, it will print all the pages, so I don’t touch this part. Now I want to see the print preview, so I will choose Preview as TRUE.

Code:

Sub Print_Example2() Range("A1:S29").PrintOut Preview:=True End Sub

Now I will run this code. We will see the print preview.

This is coming in 2 pages.

So first, I want to set up the page to come in a single sheet. Use the below code to set up the page to come in one sheet.

Code:

Alamprint_näide2 () koos töölehtedega ("näide 1"). PageSetup .Zoom = Vale .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlMaastik lõpeb ActiveSheet.PrintOut eelvaatusega: = True End Sub