Kaip spausdinti į PDF failą naudojant "Excel VBA" : su pavyzdžiais ir iliustracijomis

Hugh West

16-10-2023 Makrokomandos ir "Excel VBA
  • Pasidalinti
Hugh West

Šiame straipsnyje parodysiu, kaip galima spausdinti bet kokį dokumentą į PDF naudojant VBA Excel programoje. Naudosime ExportAsFixedForma t metodas VBA šiam tikslui. Aptarsiu visus šio metodo parametrus, pateikdamas tinkamus pavyzdžius ir iliustracijas.

Spausdinti į PDF failą naudojant "Excel VBA" (greita peržiūra)

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte praktikuotis skaitydami šį straipsnį.

VBA Spausdinti į PDF.xlsm

Įvadas į teiginį ExportAsFixedFormat

⧭ Apžvalga:

Svetainė ExportAsFixedForma t metodas VBA išsaugo bet kurį dokumentą PDF formatu su nurodytu pavadinimu su VBA . Tai gana naudingas metodas tiems, kurie dirba su daugybe "Excel" darbalapių ir saugo juos tolesniam naudojimui.

⧭ Sintaksė:

VBA sintaksė ExportAsFixedFormat metodas yra: 

 Document.ExportAsFixedFormat Tipas, Failo pavadinimas, Kokybė, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish

⧭ Parametrai:

Parametras Privaloma / pasirinktinai Paaiškinimas
Tipas Reikalinga Žymi failo, kurį norite išsaugoti, tipą. PDF failams naudokite xlTypePDF, o XPS failams - xlTypeXPS.
Failo pavadinimas Pasirinktinai Failo, kurį norite įrašyti, pavadinimas. Jei norite įrašyti failą kitu keliu nei darbaknygėje, čia įveskite visą failo kelią.
Kokybė Pasirinktinai Nurodo įrašomo failo kokybę. Naudokite xlQualityStandard, jei norite standartinės kokybės, arba xlQualityMinimum, jei norite minimalios kokybės.
IncludeDocProperties Pasirinktinai Nustatykite jį kaip True, kad būtų įtrauktos dokumento savybės, arba nustatykite jį kaip False, kad nebūtų įtrauktos dokumento savybės.
IgnorePrintAreas Pasirinktinai Nustatykite True, jei norite ignoruoti spausdinimo sritis, arba False, jei norite neignoruoti spausdinimo sričių.
Iš Pasirinktinai Pradinis puslapio numeris, nuo kurio bus pradedamas išsaugoti dokumentas.
Į Pasirinktinai Nustatykite jį kaip True, kad būtų įtrauktos dokumento savybės, arba nustatykite jį kaip False, kad nebūtų įtrauktos dokumento savybės.
OpenAfterPublish Pasirinktinai Nustatykite jį kaip True, kad dokumentas būtų atidarytas po publikavimo, arba nustatykite jį kaip False.

⧭ Grąžinama vertė:

Jis konvertuoja "Excel" darbaknygės darbalapius kaip PDF dokumentą ir išsaugo jį nurodytu pavadinimu nurodytame aplanke.

5 pavyzdžiai, kaip spausdinti į PDF failą "Excel VBA" programoje naudojant "ExportAsFixedFormat" teiginį

Panagrinėkime keletą pavyzdžių, kaip spausdinti dokumentą į PDF failą "Excel" programoje VBA su ExportAsFixedFormat metodas.

1 pavyzdys: spausdinimas į PDF failą "Excel VBA" programoje nenurodant nei pavadinimo, nei kelio

Čia pateikiame darbalapį su knygyno "Marin Bookstore" knygų įrašais.

Parašykime paprastą VBA kodą, kad konvertuotumėte darbalapį į PDF dokumentą, nenurodydami nei pavadinimo, nei kelio.

⧭ VBA kodas: 

 Dalis Print_To_PDF() ActiveSheet.ExportAsFixedFormat Tipas:=xlTypePDF Pabaiga Dalis

⧭ Išėjimas:

Paleiskite šį kodą ir rasite PDF failą tokiu pačiu pavadinimu kaip ir jūsų darbaknygė (Numatytasis pavadinimas, kai nenurodytas joks pavadinimas) tame pačiame aplanke, kuriame yra jūsų darbaknygė (Numatytasis aplankas, nes nenurodytas joks kelias).

Čia jis pavadintas kaip Book1.pdf nes mano darbo knygos pavadinimas buvo 1 knyga .

Skaityti daugiau: "Excel VBA": kaip dinamiškai nustatyti spausdinimo sritį (7 būdai)

2 pavyzdys: spausdinimas į PDF failą "Excel VBA" programoje, nurodant pavadinimą ir kelią

Dabar tą patį sąsiuvinį konvertuosime į kitą PDF failą, nurodydami pavadinimą ir kelią.

Aš išsaugosiu PDF failą su pavadinimu "Martin Bookstore.pdf" kelyje C:\Users\Public\ExcelWIKI mano kompiuteryje. Taigi VBA kodas bus:

⧭ VBA kodas: 

 Sub Print_To_PDF() ActiveSheet.ExportAsFixedFormat Tipas:=xlTypePDF, _ Pavadinimas:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" Pabaiga Sub

⧭ Išėjimas:

Šis kodas įrašys PDF dokumentą į kelią C:\Users\Public\ExcelWIKI mano kompiuteryje su pavadinimu Martin Bookstore.pdf .

Skaityti daugiau: Kaip spausdinti pasirinktą sritį "Excel" programoje (2 pavyzdžiai)

Panašūs skaitiniai:

  • Kaip spausdinti antraštes "Excel" programoje (5 paprasti būdai)
  • Darbalapio su komentarais spausdinimas programoje "Excel" (5 paprasti būdai)
  • Kaip spausdinti pasirinktas "Excel" ląsteles (2 paprasti būdai)
  • Spausdinimo srities centravimas "Excel" programoje (4 būdai)
  • Kaip rodyti spausdinimo peržiūrą naudojant "Excel VBA" (3 makrokomandos)

3 pavyzdys: Spausdinimas į PDF failą "Excel VBA" programa su failo atidarymu po publikavimo

Dabar spausdinsime dokumentą į PDF taip, kad failas būtų atidaromas jį paskelbus. Turime nustatyti OpenAfterPublish parametrą į Tiesa .

Taigi VBA kodas bus,

⧭ VBA kodas: 

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

⧭ Išėjimas:

Šis kodas įrašys PDF dokumentą į kelią C:\Users\Public\ExcelWIKI mano kompiuteryje su pavadinimu Martin Bookstore.pdf ir atidarykite failą, kai tik jis bus paskelbtas.

Susijęs turinys: Kaip nustatyti "Excel" spausdinimo peržiūrą (6 parinktys)

4 pavyzdys: Kelių darbalapių spausdinimas į kelis PDF failus naudojant "Excel VBA

Iki šiol spausdinome vieną darbalapį. Šį kartą spausdinsime kelis darbalapius į kelis PDF failus.

Čia turime sąsiuvinį su 5 darbalapiai, kurių kiekviename yra konkretaus knygyno knygų įrašas.

Šį kartą visus darbo lapus konvertuosime į PDF failus.

Svetainė VBA kodas bus:

⧭ VBA kodas: 

 Sub Print_Multiple_Sheets_To_PDF() Sheet_Names = InputBox("Įveskite darbalapių pavadinimus, kuriuos norite spausdinti į 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

⧭ Išėjimas:

Paleiskite kodą. Įvesties lange bus paprašyta įvesti darbalapių, kuriuos norite konvertuoti į PDF, pavadinimus. Čia įvedžiau Juozapo knygynas, Morgano knygynas, Angelos knygynas .

Spustelėkite GERAI . Ir juos išsaugos kaip PDF failus aplanke C:\Users\Public\ExcelWIKI .

Skaityti daugiau: Kaip "Excel" spausdinti kelis lapus (7 skirtingi metodai)

5 pavyzdys: Vartotojo apibrėžtos funkcijos, skirtos spausdinti į PDF failą "Excel VBA", kūrimas

Galiausiai parodysiu, kaip galite sukurti naudotojo apibrėžtą funkciją, kad galėtumėte spausdinti bet kurį darbalapį į PDF failą naudodami "Excel". VBA .

Sukurkime funkciją, pavadintą PrintToPDF kuris aktyvią darbalapį atspausdins į PDF failą.

Svetainė VBA kodas bus:

⧭ VBA kodas: 

 Funkcija PrintToPDF() ActiveSheet.ExportAsFixedFormat Tipas:=xlTypePDF, _ Failo pavadinimas:="C:\Users\Public\ExcelWIKI\Martin Bookstore.pdf" Pabaiga Funkcija

⧭ Išėjimas:

Įveskite šią funkciją bet kurioje darbalapio ląstelėje.

=Spausdinti į PDF()

Tada spustelėkite ĮVESKITE . Jis konvertuos aktyvųjį lapą ( Martino knygynas čia) į PDF failą nurodytame aplanke.

Skaityti daugiau: "Excel VBA": spausdinti naudotojo formą, kad tilptų į puslapį (2 metodai)

Dalykai, kuriuos reikia prisiminti

Kurdami kodus dažniausiai naudojome ActiveSheet objektas VBA . Jis grąžina tuo metu aktyviame sąsiuvinyje veikiantį darbalapį.

Taip pat kartais naudojome turtą ActiveSheet.Name . Jis grąžina aktyvaus darbalapio pavadinimą.

Išvada

Taigi, tai yra būdas spausdinti bet kokį darbalapį į PDF su VBA Excel programoje. Turite klausimų? Drąsiai kreipkitės į mus. Ir nepamirškite apsilankyti mūsų svetainėje ExcelWIKI daugiau pranešimų ir atnaujinimų.

Ankstesnis įrašas Kaip naudoti TRUNC funkciją programoje "Excel" (4 pavyzdžiai)
Kitas įrašas "Excel VBA" lentelės kūrimas iš diapazono (6 pavyzdžiai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.