Eno najpomembnejših in najpogosteje uporabljenih opravil, s katerimi se srečujemo pri delu z VBA v Excelu je tiskanje potrebnih podatkov. Danes vam bom v tem članku pokazal, kako lahko natisnete podatke v Excelu. VBA z ustreznimi primeri in ilustracijami.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

Koraki za tiskanje podatkov s programom Excel VBA

Tu imam nabor podatkov z Imena, vrste in Cene nekaj knjig iz knjigarne Martin Bookstore.

Danes se bomo naučili, kako lahko ta niz podatkov natisnemo z VBA .

Korak 1: Odpiranje urejevalnika VBA za tiskanje v Excelu

Pritisnite ALT+F11 na tipkovnici. Visual Basic Urednik.

Preberite več: Kako nastaviti območje tiskanja v Excelu (5 metod)

Korak 2: Vstavljanje novega modula za tiskanje v Excelu

Pojdite na Vstavite možnost v VBA orodne vrstice. Kliknite Vstavljanje> Modul za odprtje novega modula.

Sorodna vsebina: Kako natisniti mrežne črte v Excelu (2 načina)

Korak 3: Vnos kode VBA za tiskanje v Excelu

Nov modul z imenom Modul1 Odprlo se bo okno. Vnesite naslednje VBA kodo.

⧭ Koda VBA:

 Sub VBA_Print() ActiveWorkbook.ActiveSheet.PrintOut kopije:=1 End Sub 

⧭ Opombe:

• Tukaj želim natisniti aktivni delovni list v delovnem zvezku. Če želite natisniti kateri koli drug delovni list, ime delovnega lista zapišite neposredno v kodo.

Na primer, če želite natisniti delovni list z imenom List1 , uporabite:

ActiveWorkbook.Worksheets("Sheet1").PrintOut kopije:=1

• Tiskate lahko tudi iz delovnega zvezka, ki ni aktiven. List1 iz delovnega zvezka z imenom Delovni zvezek1 , uporabite:

Delovna knjiga("Delovna knjiga1").Delovni listi("List1").PrintOut kopije:=1

• Tukaj tiskamo samo eno kopijo delovnega lista. Če želite natisniti več kot eno kopijo, spremenite kopije ustrezno lastnost.
• Če želite natisniti več delovnih listov in jih med tiskanjem združiti, imate na voljo tudi to možnost. PrintOut funkcijo VBA ima lastnost z imenom Zbiranje . Nastavite ga tako, da bo Resnično .

ActiveWorkbook.ActiveSheet.PrintOut kopije:=10, Collate:=True

Sorodna vsebina: Excel VBA: Kako dinamično nastaviti območje tiskanja (7 načinov)

Podobna branja:

• Excelov gumb za tiskanje določenih listov (z enostavnimi koraki)
• Kako natisniti vodoravno v Excelu (4 metode)
• Tiskanje več listov programa Excel v eno datoteko PDF s programom VBA (6 meril)
• Tiskanje naslovov v Excelu je onemogočeno, kako ga omogočiti?
• Kako natisniti Excelov list v velikosti A4 (4 načini)

Korak 4: Zagon kode VBA za tiskanje v Excelu

Po vnosu VBA kodo pravilno, zaženite Makro s klikom na Spustite možnost v VBA orodna vrstica.

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

Korak 5: Končni rezultat: tiskanje z VBA

Če lahko uspešno zapišete kodo in jo zaženete, se delovni list natisne na tiskalnik in pojavi se majhno okno, kot je to.

Sorodna vsebina: Excel VBA: Natisni obseg celic (5 enostavnih metod)

Stvari, ki si jih je treba zapomniti

Tu smo uporabili PrintOut funkcijo VBA . Obstaja še ena funkcija v VBA . PrintPreview , ki prikazuje predogled podatkov pred tiskanjem.

Sintaksa PrintPreview je enaka funkciji PrintOut uporabite samo funkcijo PrintPrview namesto PrintOut .

ActiveWorkbook.ActiveSheet.PrintPreview

Pred tiskanjem bo prikazan predogled delovnega lista.

Zaključek

To je metoda, s katero lahko natisnete vse podatke iz delovnega lista Excel z VBA . Imate kakšno vprašanje? Vprašajte nas. In ne pozabite obiskati našega spletnega mesta. ExcelWIKI za več objav in posodobitev.