Izjava o ispisu VBA - Kako koristiti Excel VBA za ispis? (s primjerima)

Sadržaj

Što je Ispis u VBA Excelu?

Ispis u VBA vrlo je sličan ispisu u Excelu, kada imamo važne podatke u Excelu ili proračunskim tablicama, tada je jedini način da ih učinimo sigurnim spremati u pdf ili ispisati, a za ispis moramo postaviti naredbu print u VBA prije upotrebe, što ova naredba čini ako podatke ispisuje ili zapisuje u drugu datoteku.

Što je Ispis u VBA Excelu?

VBA ispis nije ništa, ali kao i obično, kako ispisujemo na redovnom radnom listu, u tome nema razlike. Korištenjem Excel VBA koda možemo ispisati cijele podatke radnog lista. Možemo ispisati radnu knjigu, grafikone, navedeni raspon itd.

Nakon cijelog napornog rada na predstavljanju izvještaja upravitelju, obično šaljemo e-poštu. No, u nekim slučajevima na sastanku vaš upravitelj treba tiskanu kopiju vaših izvješća. U tim scenarijima morate ispisati izvješće koje imate u proračunskoj tablici. Jedan od razloga zašto vaš upravitelj treba ispis izvješća može biti vrlo veliko izvješće za čitanje na računalu. Na radnom listu sigurno ste već bili upoznati s ispisom izvješća. U ovom ćemo vam članku pokazati kako ispisivati pomoću VBA kodiranja. Slijedite ovaj članak sljedećih 15 minuta da biste saznali kako ispisivati izvješća u VBA.

Sintaksa VBA PrintOut u VBA Excel

Prije nego što vidimo sintaksu, dopustite mi da to prvo razjasnim. Što tiskamo? Ispisujemo raspone, grafikone, radne listove, radne knjige. Dakle, metoda PrintOut () dostupna je sa svim tim ciljevima.

(Od): Od koje stranice ispisa mora započeti. Ako ne dostavimo nikakvu vrijednost, tretirat će se kao na prvoj stranici.

(Do): Koja bi trebala biti zadnja stranica za ispis? Ako se zanemari, ispisat će se do posljednje stranice.

(Kopije): Koliko kopija trebate ispisati.

(Pregled): Želite li vidjeti pregled ispisa prije nego što nastavite s ispisom. Ako je odgovor da, argument je ISTINA, ako nije FALSE, argument.

Primjeri ispisa u VBA Excelu

Ispod su primjeri ispisa u VBA Excelu.

Radi ilustracije stvorio sam lažne podatke, kao što je prikazano na donjoj slici.

Sada moramo ispisati izvješće od A1 do D14. Ovo je moj domet. Unesite raspon u VBA kôd da biste pristupili PrintOut metodi.

Kodirati:

Sub Print_Example1 () Raspon ("A1: D14") Kraj Sub

Sada pristupite metodi PrintOut.

Kodirati:

Podopseg ispisa_Primjer1 () Raspon ("A1: D14"). PrintOut Kraj Sub

Ne diram nijedan parametar. To je dovoljno za ispis odabranog raspona. Ako pokrenem ovaj kôd, ispisat će raspon od A1 do D14 ćelije.

Parametri metode ispisa u VBA Excelu

Sada sam kopirao i zalijepio iste podatke kako bih koristio ostale parametre metode PrintOut u VBA Excelu.

Kada želimo ispisati cijeli list, možemo ga označiti kao Aktivni list. Ovo će pokriti cijeli list u njemu.

Kôd za ispis cijelog radnog lista.

Kodirati:

Sub Print_Example1 () ActiveSheet.UsedRange.PrintOut 'Ovo će ispisati cijeli raspon korištenih listova. Kraj pod

Šifra za upućivanje na naziv lista .

Kodirati:

Sub Print_Example1 () listovi ("Ex 1"). UsedRange.PrintOut 'Ovo će također ispisati cijeli korišteni raspon lista nazvan Ex 1. End Sub

Kôd za ispis svih radnih listova u radnoj knjizi .

Kodirati:

Sub Print_Example1 () Worksheets.UsedRange.PrintOut 'Ovo će također ispisati cijeli korišteni raspon svih listova u radnoj knjizi. Kraj pod

Kôd za ispis cijelih podataka iz radne knjige .

Kodirati:

Sub Print_Example1 () ThisWorkbook.UsedRange.PrintOut 'Ovo će također ispisati cijeli korišteni raspon svih listova u radnoj knjizi. Kraj pod

Kôd za ispis samo odabranog područja .

Kodirati:

Sub Print_Example1 () Selection.PrintOut 'Ovo će ispisati samo odabrani raspon End Sub

Kako koristiti parametre metode ispisa u programu Excel VBA?

Sada ćemo vidjeti kako koristiti parametre metode ispisa. Kao što sam rekao, proširio sam podatke kako bih koristio druga svojstva.

To se sigurno neće ispisati na jednom listu. Odaberite raspon od A1 do S29.

Kodirati:

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 () S radnim listovima ("Primjer 1"). PageSetup .Zoom = False .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlLandscape End with ActiveSheet.PrintOut Preview: = True End Sub