Vyhlásenie VBA pre tlač - Ako používať Excel VBA pre tlač? (s príkladmi)

Obsah

Čo je to tlač vo VBA Excel?

Tlač vo VBA je veľmi podobná tlači v programe Excel, keď máme dôležité údaje v programe Excel alebo tabuľkách, potom jediným spôsobom, ako ich zabezpečiť, je uložiť ich do formátu PDF alebo ich vytlačiť, pre tlač musíme nastaviť príkaz print v Najskôr VBA pred použitím, čo urobí tento príkaz, ak vytlačí alebo zapíše údaje do iného súboru.

Čo je to tlač vo VBA Excel?

Výtlačok VBA nie je nič, ale ako to býva zvykom, v tom, ako tlačíme do bežného pracovného hárka, nie je žiadny rozdiel. Pomocou kódu Excel VBA môžeme vytlačiť celé údaje z hárka. Môžeme vytlačiť zošit, grafy, zadaný rozsah atď.

Po všetkej namáhavej práci, ktorú sme vykonali, aby sme správu predložili manažérovi, zvyčajne posielame e-maily. V niektorých prípadoch na schôdzi však váš manažér potrebuje tlačenú kópiu vašich správ. V týchto scenároch musíte vytlačiť správu, ktorú máte v tabuľke. Jedným z dôvodov, prečo váš manažér potrebuje vytlačiť správu, môže byť veľmi veľká správa, ktorá sa dá prečítať na počítači. V pracovnom hárku ste už iste ovládali tlač správ. V tomto článku si ukážeme, ako tlačiť pomocou kódovania VBA. Nasledujte tento článok nasledujúcich 15 minút a dozviete sa, ako tlačiť správy vo VBA.

Syntax VBA PrintOut vo VBA Excel

Skôr ako uvidíme syntax, dovoľte mi najskôr objasniť to. Čo tlačíme? Tlačíme rozsahy, grafy, pracovné listy, zošity. Takže metóda PrintOut () je k dispozícii pre všetky tieto ciele.

(Od): Od ktorej stránky tlače sa musí začať. Ak neposkytneme žiadnu hodnotu, bude sa s ňou zaobchádzať ako z prvej stránky.

(Komu): Aká by mala byť posledná stránka, ktorá sa má vytlačiť? Ak sa ignoruje, vytlačí sa na poslednú stránku.

(Copies): Koľko kópií potrebujete na tlač.

(Ukážka): Chcete si pozrieť ukážku pred tlačou. Ak áno, argumentom je TRUE, ak nie FALSE.

Príklady tlače vo formáte VBA Excel

Nižšie uvádzame príklady tlače vo formáte VBA Excel.

Pre ilustráciu som vytvoril atrapy údajov, ako je znázornené na nasledujúcom obrázku.

Teraz musíme vytlačiť správu z formátu A1 na D14. Toto je môj rozsah. Zadaním rozsahu v kóde VBA získate prístup k metóde PrintOut.

Kód:

Sub Print_Example1 () Range ("A1: D14") End Sub

Teraz vstúpte do metódy PrintOut.

Kód:

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

Nedotýkam sa žiadneho z parametrov. To stačí na tlač zvoleného rozsahu. Ak spustím tento kód, vypíše rozsah od bunky A1 do bunky D14.

Parametre metódy výtlačku vo VBA Excel

Teraz som skopíroval a vložil rovnaké údaje, aby som mohol použiť ďalšie parametre metódy PrintOut vo VBA Excel.

Ak chceme vytlačiť celý hárok, môžeme ho označiť ako Aktívny hárok. Takto v nej zakryjete celý list.

Kód na vytlačenie celého pracovného hárka.

Kód:

Sub Print_Example1 () ActiveSheet.UsedRange.PrintOut 'Týmto sa vytlačí celý rozsah použitého listu. Koniec Sub

Kód odkazujúci na názov hárku .

Kód:

Sub Print_Example1 () Sheets ("Ex 1"). UsedRange.PrintOut 'Týmto sa vytlačí aj celý použitý rozsah hárku s názvom Ex 1. End Sub

Kód na vytlačenie všetkých pracovných hárkov v zošite .

Kód:

Sub Print_Example1 () Worksheets.UsedRange.PrintOut 'Týmto sa vytlačí aj celý použitý rozsah celého hárka v zošite. Koniec Sub

Kód na vytlačenie celých údajov zošita .

Kód:

Sub Print_Example1 () ThisWorkbook.UsedRange.PrintOut 'Týmto sa vytlačí aj celý použitý rozsah celého hárka v zošite. Koniec Sub

Kód na tlač iba vybranej oblasti .

Kód:

Sub Print_Example1 () Selection.PrintOut 'Týmto sa vytlačí iba vybraný rozsah End Sub

Ako používať parametre metódy vytlačenia v programe Excel VBA?

Teraz uvidíme, ako využiť parametre metódy vytlačenia. Ako som povedal, údaje som rozšíril o ďalšie vlastnosti.

Toto sa určite nebude tlačiť na jeden hárok. Vyberte rozsah ako A1 až S29.

Kód:

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 pracovnými hárkami („príklad 1“). PageSetup .Zoom = False .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlLandscape Koniec s ukážkou ActiveSheet.PrintOut: = skutočný koncový sub