V tomto článku vám ukážu, jak můžete vytisknout libovolný dokument do formátu PDF pomocí. VBA v Excelu. Použijeme ExportAsFixedForma t metoda VBA Pro tento účel proberu všechny parametry této metody s příslušnými příklady a ilustracemi.

Tisk do PDF v aplikaci Excel VBA (rychlé zobrazení)

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.

Úvod k příkazu ExportAsFixedFormat

⧭ Přehled:

Na stránkách ExportAsFixedForma t metoda VBA uloží libovolný dokument ve formátu PDF s daným názvem s. VBA . Jedná se o docela užitečnou metodu pro ty, kteří pracují s velkým množstvím listů aplikace Excel a ukládají je pro budoucí použití.

⧭ Syntaxe:

Syntaxe VBA ExportAsFixedFormat metoda je:

 Document.ExportAsFixedFormat Typ, Název souboru, Kvalita, IncludeDocProperties, IgnorePrintAreas, Od, Do, OpenAfterPublish 

⧭ Parametry:

⧭ Vrácená hodnota:

Převede listy sešitu aplikace Excel jako dokument PDF a uloží je do zadané složky se zadaným názvem.

5 příkladů tisku do PDF v aplikaci Excel VBA pomocí příkazu ExportAsFixedFormat

Podívejme se na několik příkladů tisku dokumentu do PDF v aplikaci Excel. VBA s ExportAsFixedFormat metoda.

Příklad 1: Tisk do PDF v aplikaci Excel VBA bez zadaného názvu nebo cesty

Zde máme pracovní list s evidencí knih knihkupectví Marin Bookstore.

Napišme jednoduchý VBA kód pro převod pracovního listu do dokumentu PDF, přičemž nezadáte žádný název ani cestu.

⧭ Kód VBA:

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

⧭ Výstup:

Spusťte tento kód a najdete soubor PDF se stejným názvem jako váš sešit (Výchozí název, pokud není zadán žádný název) ve stejné složce jako váš sešit (Výchozí složka, pokud není zadána žádná cesta).

Zde je pojmenován jako Book1.pdf jako název mého sešitu Kniha1 .

Další informace: Excel VBA: Jak dynamicky nastavit oblast tisku (7 způsobů)

Příklad 2: Tisk do PDF v aplikaci Excel VBA se zadaným názvem a cestou

Nyní převedeme stejný sešit do jiného souboru PDF, přičemž zadáme název a cestu.

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

⧭ Kód VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _ Název souboru:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" End Sub 

⧭ Výstup:

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

Přečtěte si více: Jak vytisknout vybranou oblast v aplikaci Excel (2 příklady)

Podobné čtení:

• Jak tisknout nadpisy v aplikaci Excel (5 snadných způsobů)
• Tisk pracovního listu s komentáři v aplikaci Excel (5 snadných způsobů)
• Jak vytisknout vybrané buňky v aplikaci Excel (2 snadné způsoby)
• Vystředění oblasti tisku v aplikaci Excel (4 způsoby)
• Jak zobrazit náhled tisku pomocí aplikace Excel VBA (3 makra)

Příklad 3: Tisk do PDF v aplikaci Excel VBA s otevřením souboru po publikování

Nyní budeme dokument tisknout do PDF tak, aby se soubor po zveřejnění otevřel. Musíme nastavit parametr OpenAfterPublish parametr na Pravda .

Takže VBA kód bude,

⧭ Kód VBA:

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _ Název souboru:="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 mém počítači s názvem Martin Bookstore.pdf a otevřít soubor, jakmile je zveřejněn.

Související obsah: Jak nastavit náhled tisku v aplikaci Excel (6 možností)

Příklad 4: Tisk více pracovních listů do více souborů PDF v aplikaci Excel VBA

Až dosud jsme tiskli jeden pracovní list. Tentokrát vytiskneme více pracovních listů do více souborů PDF.

Zde máme sešit s 5 pracovní listy, z nichž každý obsahuje záznam o knize z určitého knihkupectví.

Tentokrát převedeme všechny pracovní listy do souborů PDF.

Na stránkách VBA kód bude:

⧭ Kód VBA:

 Sub Print_Multiple_Sheets_To_PDF() Sheet_Names = InputBox("Zadejte názvy pracovních listů pro tisk 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:

Spusťte kód. Vstupní pole vás vyzve k zadání názvů pracovních listů, které se mají převést do PDF. Zde jsem zadal. Knihkupectví Joseph, knihkupectví Morgan, knihkupectví Angela .

Klikněte na OK . A uloží je jako soubory PDF do složky C:\Users\Public\ExcelWIKI .

Přečtěte si více: Jak vytisknout více listů v aplikaci Excel (7 různých metod)

Příklad 5: Vývoj uživatelsky definované funkce pro tisk do souboru PDF v aplikaci Excel VBA

Nakonec vám ukážu, jak můžete vytvořit uživatelsky definovanou funkci pro tisk libovolného pracovního listu do PDF pomocí aplikace Excel. VBA .

Vytvořme funkci s názvem PrintToPDF který vytiskne aktivní pracovní list do souboru PDF.

Na stránkách VBA kód bude:

⧭ Kód VBA:

 Funkce PrintToPDF() ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _ Název souboru:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" Konec funkce 

⧭ Výstup:

Tuto funkci zadejte do libovolné buňky pracovního listu.

Pak klikněte na ENTER . Převede aktivní list ( Knihkupectví Martin zde) do souboru PDF v zadané složce.

Přečtěte si více: Excel VBA: Tisk uživatelského formuláře tak, aby se vešel na stránku (2 metody)

Na co nezapomenout

Při vývoji kódů jsme většinu času používali kód ActiveSheet objekt VBA . Vrátí list, který je v daném okamžiku aktivní v aktivním sešitě.

Někdy jsme také použili vlastnost ActiveSheet.Name . Vrátí název aktivního pracovního listu.

Závěr

Takto lze vytisknout libovolný pracovní list do formátu PDF pomocí VBA Máte nějaké dotazy? Neváhejte se nás zeptat. A nezapomeňte navštívit naše stránky. ExcelWIKI pro další příspěvky a aktualizace.