V tem članku vam bom pokazal, kako lahko natisnete katerikoli dokument v PDF z uporabo VBA v Excelu. Uporabili bomo ExportAsFixedForma t metoda VBA V ta namen bom obravnaval vse parametre te metode z ustreznimi primeri in ilustracijami.

Tiskanje v PDF v programu Excel VBA (hitri prikaz)

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, da bi se med branjem tega članka urili.

Uvod v izjavo ExportAsFixedFormat

⧭ Pregled:

Spletna stran ExportAsFixedForma t metoda VBA shrani poljuben dokument v formatu PDF z danim imenom z VBA To je precej uporabna metoda za tiste, ki delajo z veliko delovnimi listi programa Excel in jih shranjujejo za prihodnjo uporabo.

⧭ Sintaksa:

Sintaksa programa VBA ExportAsFixedFormat metoda je:

 Document.ExportAsFixedFormat Type, Filename, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish 

⧭ Parametri:

⧭ Vrnjena vrednost:

Delovne liste Excelovega delovnega zvezka pretvori v dokument PDF in ga shrani v določeno mapo z določenim imenom.

5 primerov za tiskanje v PDF v programu Excel VBA z izjavo ExportAsFixedFormat

Oglejmo si nekaj primerov tiskanja dokumenta v PDF v Excelu VBA z ExportAsFixedFormat metoda.

Primer 1: Tiskanje v PDF v programu Excel VBA brez določenega imena ali poti

Tu je delovni list z evidenco knjig knjigarne z imenom Knjigarna Marin.

Napišimo preprost VBA kodo za pretvorbo delovnega lista v dokument PDF brez navedbe imena ali poti.

⧭ Koda VBA:

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

⧭ Izhod:

Zaženite to kodo in našli boste datoteko PDF z enakim imenom kot vaš delovni zvezek (privzeto ime, če ime ni določeno) v isti mapi z vašim delovnim zvezkom (privzeta mapa, če pot ni določena).

Tukaj je poimenovan kot Book1.pdf saj je bilo ime mojega delovnega zvezka Knjiga1 .

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

Primer 2: Tiskanje v PDF v programu Excel VBA z določenim imenom in potjo

Zdaj bomo isti delovni zvezek pretvorili v drugo datoteko PDF, pri čemer bomo navedli ime in pot.

PDF bom shranil z imenom "Martin Bookstore.pdf" na poti C:\Uporabniki\ Javni\ExcelWIKI v mojem računalniku. VBA koda bo:

⧭ Koda VBA:

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

⧭ Izhod:

Ta koda bo shranila dokument PDF na pot C:\Uporabniki\ Javni\ExcelWIKI na mojem računalniku z imenom Martin Bookstore.pdf .

Preberite več: Kako natisniti izbrano območje v Excelu (2 primera)

Podobna branja:

• Kako natisniti naslove v Excelu (5 preprostih načinov)
• Tiskanje delovnega lista s komentarji v Excelu (5 preprostih načinov)
• Kako natisniti izbrane celice v Excelu (2 preprosta načina)
• Osredinjenje območja za tiskanje v Excelu (4 načini)
• Kako prikazati predogled tiskanja z Excelovim programom VBA (3 makri)

Primer 3: Tiskanje v PDF v programu Excel VBA z odpiranjem datoteke po objavi

Zdaj bomo dokument natisnili v PDF tako, da se bo datoteka odprla, ko bo objavljena. OpenAfterPublish parameter na Resnično .

Tako je VBA koda bo,

⧭ Koda VBA:

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

⧭ Izhod:

Ta koda bo shranila dokument PDF na pot C:\Uporabniki\ Javni\ExcelWIKI na mojem računalniku z imenom Martin Bookstore.pdf in odprite datoteko takoj, ko je objavljena.

Sorodna vsebina: Kako nastaviti predogled tiskanja v Excelu (6 možnosti)

Primer 4: Tiskanje več delovnih listov v več datotek PDF v programu Excel VBA

Do zdaj smo natisnili en delovni list. Tokrat bomo natisnili več delovnih listov v več datotek PDF.

Tu imamo delovni zvezek z 5 delovne liste, od katerih vsak vsebuje knjižni zapis določene knjigarne.

Tokrat bomo vse delovne liste pretvorili v datoteke PDF.

Spletna stran VBA koda bo:

⧭ Koda VBA:

 Sub Print_Multiple_Sheets_To_PDF() Sheet_Names = InputBox("Vnesite imena delovnih listov za tiskanje v 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 EndPod 

⧭ Izhod:

Zaženite kodo. V vnosno polje boste morali vnesti imena delovnih listov, ki jih želite pretvoriti v PDF. Tukaj sem vnesel Joseph knjigarna, Morgan knjigarna, Angela knjigarna .

Kliknite . V REDU . In shranil jih bo kot datoteke PDF v mapo C:\Uporabniki\ Javni\ExcelWIKI .

Preberite več: Kako natisniti več listov v Excelu (7 različnih metod)

Primer 5: Razvoj uporabniško določene funkcije za tiskanje v datoteko PDF v programu Excel VBA

Na koncu vam bom pokazal, kako lahko razvijete uporabniško določeno funkcijo za tiskanje katerega koli delovnega lista v PDF z Excelom. VBA .

Razvijmo funkcijo z imenom PrintToPDF ki bo aktivni delovni list natisnil v datoteko PDF.

Spletna stran VBA koda bo:

⧭ Koda VBA:

 Funkcija PrintToPDF() ActiveSheet.ExportAsFixedFormat Vrsta:=xlTypePDF, _ Ime datoteke:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" Konec funkcije 

⧭ Izhod:

To funkcijo vnesite v katero koli celico delovnega lista.

Nato kliknite VSTOP . Pretvoril bo aktivni list ( Knjigarna Martin tukaj) v datoteko PDF v določeni mapi.

Preberite več: Excel VBA: Tiskanje uporabniškega obrazca, da se prilega na stran (2 metodi)

Stvari, ki si jih je treba zapomniti

Pri razvoju kod smo večino časa uporabljali ActiveSheet predmet VBA . Vrne delovni list, ki je v tem trenutku aktiven v aktivnem delovnem zvezku.

Včasih smo uporabili tudi lastnost ActiveSheet.Name Vrne ime aktivnega delovnega lista.

Zaključek

To je način za tiskanje katerega koli delovnega lista v PDF z VBA v Excelu. Imate kakšno vprašanje? Vprašajte nas. In ne pozabite obiskati našega spletnega mesta ExcelWIKI za več objav in posodobitev.