Izjava za tiskanje VBA - Kako uporabiti Excel VBA za izpis? (s primeri)

Kazalo

Kaj je tiskanje v programu VBA Excel?

Tiskanje v VBA je zelo podobno tiskanju v Excelu, ko imamo pomembne podatke v Excelu ali preglednicah, potem je edini način, da jih varno shranimo v pdf ali jih natisnemo, za tiskanje moramo nastaviti ukaz za tiskanje v VBA najprej, preden ga uporabi, kaj ta ukaz naredi, če podatke natisne ali zapiše v drugo datoteko.

Kaj je tiskanje v programu VBA Excel?

Izpis VBA ni nič, toda kot običajno pri tiskanju na običajni delovni list v tem ni razlike. S pomočjo kode Excel VBA lahko natisnemo celotne podatke delovnega lista. Tiskamo lahko delovni zvezek, grafikone, določen obseg itd.

Po vsem trudu, ki smo ga opravili, da smo poročilo predstavili upravniku, običajno pošljemo e-pošto. Toda v nekaterih primerih na sestanku vaš upravitelj potrebuje tiskane izvode vaših poročil. V teh scenarijih morate natisniti poročilo, ki ga imate v preglednici. Eden od razlogov, zakaj vaš upravitelj potrebuje izpis poročila, je lahko zelo veliko poročilo, ki ga lahko preberete v računalniku. Na delovnem listu ste že morali poznati tiskanje poročil. V tem članku vam bomo pokazali, kako tiskati s kodiranjem VBA. Sledite temu članku naslednjih 15 minut, če želite izvedeti, kako tiskati poročila v VBA.

Sintaksa VBA PrintOut v VBA Excel

Preden bomo videli sintakso, naj to najprej pojasnim. Kaj tiskamo? Tiskamo obsege, grafikone, delovne liste, delovne zvezke. Torej je metoda PrintOut () na voljo z vsemi temi cilji.

(Od): Od katere strani tiskanja se mora začeti. Če ne navedemo nobene vrednosti, bo to obravnavano kot na prvi strani.

(Za): Katera naj bo zadnja stran, ki se natisne? Če ga prezrete, se natisne do zadnje strani.

(Kopije): Koliko kopij morate natisniti.

(Predogled): Bi radi videli predogled tiskanja, preden nadaljujete s tiskanjem. Če je odgovor pritrdilen, je argument TRUE, če ne, FALSE.

Primeri tiskanja v programu VBA Excel

Spodaj so primeri tiskanja v programu VBA Excel.

Za ponazoritev sem ustvaril lažne podatke, kot je prikazano na spodnji sliki.

Zdaj moramo natisniti poročilo od A1 do D14. To je moj domet. Vnesite obseg v kodo VBA za dostop do metode PrintOut.

Koda:

Sub Print_Example1 () Obseg ("A1: D14") Konec Sub

Zdaj odprite metodo PrintOut.

Koda:

Sub Print_Example1 () Obseg ("A1: D14"). PrintOut End Sub

Ne dotikam se nobenega parametra. To je dovolj za tiskanje izbranega obsega. Če zaženem to kodo, bo natisnila obseg od A1 do D14 celice.

Parametri metode izpisa v programu VBA Excel

Zdaj sem iste podatke kopiral in prilepil za uporabo drugih parametrov metode PrintOut v programu VBA Excel.

Ko želimo natisniti celoten list, lahko celoten list označimo kot aktivni list. To bo zajelo celoten list v njem.

Koda za tiskanje celotnega delovnega lista.

Koda:

Sub Print_Example1 () ActiveSheet.UsedRange.PrintOut 'S tem se natisne celoten obseg uporabljenega lista. Končaj pod

Koda za sklicevanje na ime lista .

Koda:

Sub Print_Example1 () Sheets ("Ex 1"). UsedRange.PrintOut 'S tem bo natisnjen tudi celoten uporabljeni obseg lista z imenom Ex 1. End Sub

Koda za tiskanje vseh delovnih listov v delovnem zvezku .

Koda:

Sub Print_Example1 () Worksheets.UsedRange.PrintOut 'S tem bo natisnjen tudi celoten uporabljeni obseg celotnega lista v delovnem zvezku. Končaj pod

Koda za tiskanje celotnih podatkov o delovnem zvezku .

Koda:

Sub Print_Example1 () ThisWorkbook.UsedRange.PrintOut 'S tem bo natisnjen tudi celoten uporabljeni obseg celotnega lista v delovnem zvezku. Končaj pod

Koda za tiskanje samo izbranega območja .

Koda:

Sub Print_Example1 () Selection.PrintOut 'To bo natisnilo samo izbrani obseg End Sub

Kako uporabiti parametre metode izpisa v Excelu VBA?

Zdaj bomo videli, kako uporabiti parametre metode izpisa. Kot sem že povedal, sem podatke razširil, da sem uporabil druge lastnosti.

To zagotovo ne bo natisnjeno na enem listu. Izberite obseg od A1 do S29.

Koda:

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:

Sub Print_Example2 () Z delovnimi listi ("Primer 1"). PageSetup .Zoom = False .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlLandscape End with ActiveSheet.PrintOut Preview: = True End Sub