Valitud vahemiku salvestamiseks Excelis (ütleme kviitungi) PDF -failina Excelis, kasutades VBA -d, kasutage allpool süntaksit.
Üldine kood
Sub SaveRangeAsPDF () Vahemik.ExportAsFixedFormat Type: = xlTypePDF, Faili nimi:= _ "C: \ Kasutajad \ faili_nimi", Kvaliteet: = xlQualityStandard, _ IncludeDocProperties: = Tõsi, IgnorePrintAreas: = False, OpenAfterPublish: = True End Sub
Ülaltoodud kood on üldine kood fikseeritud vahemiku salvestamiseks PDF -dokumendina. Kui teie rekordmakro Exceli eksportimisel PDF -i kuvatakse, kuvatakse sarnane kood.
Vahemik:See võib olla fikseeritud vahemik, dünaamiline vahemik või valik. Peate selle määratlema.
Faili nimi: See on pdf -i täielikult kvalifitseeritud nimi. Määratlege see stringina.
Ülejäänud muutujad võib jätta nii, nagu need on. Ma selgitasin neid pärast näidet.
Näide: Printige Exceli kviitung PDF -vormingus, kasutades VBA -d
Oletame, et peate Excelis kviitungeid regulaarselt printima ja saatma. Sellisel juhul soovite selle automatiseerida. Te ei tahaks ikka ja jälle eksportida Excelisse pdf -i. Kui saate selle tegemiseks lihtsalt nuppu kasutada, oleks see kasulik, kas pole?
Siin olen kujundanud selle kviitungi vormi. Soovin selle printida/salvestada/eksportida PDF -failina, kasutades nuppu "Loo PDF".
See kviitung hõlmab vahemikku "A2: L21". Prindiala olen juba määranud.
Selle Exceli vahemiku salvestamiseks PDF -failina kasutame ülaltoodud üldist VBA -koodi, mis on mõeldud Exceli lehe eksportimiseks PDF -i. Kohandame koodi vastavalt meie nõudmistele.
Sub PrintSelectionToPDF () Dim arveRng kui vahemik Dim pdfile kui string 'Prinditava seadistusvahemiku määramine set billiceRng = Vahemik ("A1: L21")' seadistusfaili nimi koos ajatempliga. pdfile = "arve" & "_" & Vorming (nüüd (), "yyyymmdd_hhmmss") & ".pdf" ', mis määrab täieliku kvalifitseeritud nime. Saadud pdf salvestatakse sinna, kus on põhifail. pdfile = ThisWorkbook.Path & strfile invoiceRng.ExportAsFixedFormat Type: = xlTypePDF, _ Filename: = pdfile, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAalse End Subub:
Koodi kasutamine:
Kopeerige ülaltoodud kood oma kviitungi faili, avades VBA redaktori (kasutage klahve Alt+F11). Reguleerige printimiskoodi ulatust ja failiteed (kui soovite). Tööfaili saate alla laadida allpool.
Salvestage Exceli vahemik PDF -vormingus, kasutades VBA -d
Selgitus:
DimmericeRng kui vahemik Dim pdfile kui string
Kood on lihtne. Esiteks oleme loonud kaks muutujat. "ArveRng kui vahemik" vahemiku/lehe jaoks, mille soovime pdf -failina salvestada. strFile saadud PDF -i täielikult kvalifitseeritud failinime jaoks.
Määra billiceRng = Vahemik ("A1: L21")
Kuna meie trükivahemik on fikseeritud, määrasime arve vahemikuks vahemik ("A1: L21").
pdfile = "arve" & "_" & vorming (kohe (), "yyyymmdd_hhmmss") & ".pdf" pdfile = ThisWorkbook.Path & strfile
Ülaltoodud kahes reas nimetame faili esmalt ajatempliga ja lisame seejärel põhifaili teele. Selle tulemusel sisaldab pdfile tulemuseks oleva pdf -faili täielikult kvalifitseeritud nime.
invoiceRng.ExportAsFixedFormat _ Tüüp: = xlTypePDF, _ Failinimi: = pdfile, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = True, _ OpenAfterPublish: = False
Lõpuks kasutame määratletud Exceli vahemiku printimiseks PDF -failina vahemiku klassi meetodit ExpoortAsFixedFormat. Me määratleme tüübi xlTypePDF. Teine valik on xlTypeXPS, mis salvestab valitud vahemiku XPS -failina.
Seadsime failinimeks pdfile, mis sisaldab pdf -faili täielikult kvalifitseeritud nime stringi. Siin saate kirjutada kõvakodeeritud teksti või kohandada seda vastavalt oma vajadustele.
Järgmisena seadsime pdf -faili kvaliteediks xlQualityStandard. Meil on teine valik xlQualityMinimum.
Järgmisena seadsime IncludeDocProperties väärtuseks True. See tähendab, et saadud PDF -il on dokumendi omadused.
Seejärel seadisime IgnorePrintAreas väärtuseks True. See tähendab, et see ignoreerib juba määratud prindiala.
Lõpuks määrasime OpenAfterPublish väärtuseks Väär. See tähendab, et teie loodud fail ei avane automaatselt. Ma määran selle valeks, kuna loon 100 silmust kasutades faile ja ma ei taha, et need avaneksid. Kui soovite faili pärast Exceli abil loomist avada, määrake see tõeseks.
Valitud vahemiku printimine PDF -failina
Üks põhikasutus on valitud vahemiku printimine, klõpsates vaid ühel nupul. Kuid parim kasutamine on kasutada seda silmusena, kus peate erinevate klientide jaoks looma mitu kviitungit. Looge andmete täitmiseks alamosa ja seejärel kasutage seda koodi valitud vahemiku printimiseks ahelas.
Nii et jah, poisid, nii saate valitud vahemiku pdf -failina salvestada. Loodan, et see oli teile kasulik. Kui teil on endiselt kahtlusi või päringuid VBA abil Excelis printimise kohta, küsige allpool kommentaaride jaotises.
Printige ühele lehele mitu valikut, kasutades Microsoft Excelis VBA -d | Valige mitu vahemikku ja printige iga vahemik VBA abil erinevale lehele.
Printige kõik töövihikud kausta, kasutades VBA -d Microsoft Excelis | Kasutage seda VBA -koodi iga Exceli töövihiku printimiseks ja salvestamiseks kausta, kasutades.
Populaarsed artiklid:
Jagage Exceli leht mitmeks failiks VBA abil | See VBA -kood jagab Exceli lehe baasi unikaalsete väärtuste jaoks määratud veerus. Laadige tööfail alla.
Hoiatusteadete väljalülitamine Microsoft Excel 2016 VBA abil | Jooksva VBA koodi katkestavate hoiatusteadete väljalülitamiseks kasutame rakendusklassi.
Uue töövihiku lisamine ja salvestamine Microsoft Excel 2016 VBA abil | Töövihikute lisamiseks ja salvestamiseks VBA abil kasutame klassi Töövihikud. Töövihikud.Add lisab uue töövihiku lihtsalt, kuid…