V tomto článku vám ukážem, ako môžete vytlačiť akýkoľvek dokument do formátu PDF pomocou VBA v programe Excel. Použijeme ExportAsFixedForma t metóda VBA Na tento účel rozoberiem všetky parametre tejto metódy s príslušnými príkladmi a ilustráciami.

Tlač do PDF v programe Excel VBA (rýchle zobrazenie)

Stiahnite si cvičebnicu

Stiahnite si tento cvičný zošit a precvičte si ho počas čítania tohto článku.

Úvod do príkazu ExportAsFixedFormat

⧭ Prehľad:

Stránka ExportAsFixedForma t metóda VBA uloží ľubovoľný dokument vo formáte PDF s daným názvom s VBA . Je to celkom užitočná metóda pre tých, ktorí pracujú s množstvom pracovných hárkov programu Excel a ukladajú ich na budúce použitie.

⧭ Syntax:

Syntax VBA ExportAsFixedFormat metóda je:

 Document.ExportAsFixedFormat Typ, Názov súboru, Kvalita, IncludeDocProperties, IgnorePrintAreas, Od, Do, OpenAfterPublish 

⧭ Parametre:

⧭ Vrátená hodnota:

Prevedie pracovné listy zošita programu Excel ako dokument PDF a uloží ho do zadaného priečinka so zadaným názvom.

5 príkladov na tlač do PDF v programe Excel VBA pomocou príkazu ExportAsFixedFormat

Pozrime sa na niekoľko príkladov, ako vytlačiť dokument do PDF v programe Excel VBA s ExportAsFixedFormat metóda.

Príklad 1: Tlač do PDF v programe Excel VBA bez zadaného názvu alebo cesty

Tu máme pracovný list so záznamami o knihách z kníhkupectva s názvom Marin Bookstore.

Napíšeme jednoduchý VBA kód na konverziu pracovného hárka do dokumentu PDF, pričom nezadáte žiadny názov ani cestu.

⧭ Kód VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF End Sub 

⧭ Výstup:

Spustite tento kód a nájdete súbor PDF s rovnakým názvom ako váš zošit (Predvolený názov, ak nie je zadaný žiadny názov) v rovnakom priečinku ako váš zošit (Predvolený priečinok, ak nie je zadaná žiadna cesta).

Tu je pomenovaný ako Book1.pdf ako bol názov môjho zošita Kniha1 .

Prečítajte si viac: Excel VBA: Ako dynamicky nastaviť oblasť tlače (7 spôsobov)

Príklad 2: Tlač do PDF v programe Excel VBA so zadaným názvom a cestou

Teraz prevedieme ten istý zošit do iného súboru PDF, pričom uvedieme názov a cestu.

Uložím PDF s názvom "Martin Bookstore.pdf" v ceste C:\Users\Public\ExcelWIKI v mojom počítači. Takže VBA kód bude:

⧭ Kód VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" End Sub 

⧭ Výstup:

Tento kód uloží dokument PDF do cesty C:\Users\Public\ExcelWIKI v mojom počítači s názvom Martin Bookstore.pdf .

Prečítajte si viac: Ako vytlačiť vybranú oblasť v programe Excel (2 príklady)

Podobné čítanie:

• Ako vytlačiť nadpisy v programe Excel (5 jednoduchých spôsobov)
• Tlač pracovného hárku s komentármi v programe Excel (5 jednoduchých spôsobov)
• Ako vytlačiť vybrané bunky v programe Excel (2 jednoduché spôsoby)
• Vystredenie oblasti tlače v programe Excel (4 spôsoby)
• Ako zobraziť náhľad tlače pomocou programu Excel VBA (3 makrá)

Príklad 3: Tlač do PDF v programe Excel VBA s otvorením súboru po publikovaní

Teraz vytlačíme dokument do PDF tak, aby sa súbor otvoril až po zverejnení. Musíme nastaviť OpenAfterPublish parameter na Pravda .

Takže VBA kód bude,

⧭ Kód VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf", _ OpenAfterPublish:=True End Sub 

⧭ Výstup:

Tento kód uloží dokument PDF do cesty C:\Users\Public\ExcelWIKI v mojom počítači s názvom Martin Bookstore.pdf a otvorte súbor hneď po jeho zverejnení.

Súvisiaci obsah: Ako nastaviť náhľad tlače v programe Excel (6 možností)

Príklad 4: Tlač viacerých pracovných hárkov do viacerých súborov PDF v programe Excel VBA

Doteraz sme vytlačili jeden pracovný hárok. Tentoraz vytlačíme viac pracovných hárkov do viacerých súborov PDF.

Tu máme zošit s 5 pracovné hárky, z ktorých každý obsahuje záznam o knihe konkrétneho kníhkupectva.

Tentoraz prevedieme všetky pracovné listy do súborov PDF.

Stránka VBA kód bude:

⧭ Kód VBA:

 Sub Print_Multiple_Sheets_To_PDF() Sheet_Names = InputBox("Zadajte názvy pracovných listov, ktoré chcete vytlačiť do PDF: ") Sheet_Names = Split(Sheet_Names, ", ") For i = LBound(Sheet_Names) To UBound(Sheet_Names) Worksheets(Sheet_Names(i)).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\Public\ExcelWIKI\" + Sheet_Names(i) + ".pdf" Next i EndSub 

⧭ Výstup:

Spustite kód. Vstupné pole vás požiada o zadanie názvov pracovných hárkov, ktoré sa majú previesť do formátu PDF. Tu som zadal Joseph Bookstore, Morgan Bookstore, Angela Bookstore .

Kliknite na . OK . A uloží ich ako súbory PDF do priečinka C:\Users\Public\ExcelWIKI .

Prečítajte si viac: Ako vytlačiť viac hárkov v programe Excel (7 rôznych metód)

Príklad 5: Vytvorenie funkcie definovanej používateľom na tlač do súboru PDF v programe Excel VBA

Nakoniec vám ukážem, ako môžete vytvoriť používateľom definovanú funkciu na tlač ľubovoľného pracovného hárka do formátu PDF pomocou aplikácie Excel VBA .

Vytvorme funkciu s názvom PrintToPDF ktorý vytlačí aktívny pracovný hárok do súboru PDF.

Stránka VBA kód bude:

⧭ Kód VBA:

 Funkcia PrintToPDF() ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _ Názov súboru:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" Koniec funkcie 

⧭ Výstup:

Túto funkciu zadajte do ľubovoľnej bunky pracovného hárka.

Potom kliknite na tlačidlo VSTÚPIŤ . Prevedie aktívny hárok ( Kníhkupectvo Martin tu) do súboru PDF v zadanom priečinku.

Prečítajte si viac: Excel VBA: Tlač užívateľského formulára tak, aby sa zmestil na stránku (2 metódy)

Čo si treba zapamätať

Pri vývoji kódov sme väčšinou používali ActiveSheet objekt VBA . Vráti pracovný hárok, ktorý je v danom okamihu aktívny v aktívnom zošite.

Niekedy sme použili aj vlastnosť ActiveSheet.Name . Vráti názov aktívneho pracovného hárka.

Záver

Toto je spôsob, ako vytlačiť akýkoľvek pracovný hárok do formátu PDF pomocou VBA Máte nejaké otázky? Neváhajte sa nás opýtať. A nezabudnite navštíviť našu stránku ExcelWIKI pre ďalšie príspevky a aktualizácie.