Lai programmā Excel saglabātu atlasīto diapazonu (piemēram, kvīti) PDF formātā, izmantojot VBA, izmantojiet zemāk esošo sintaksi.
Vispārējais kods
Sub SaveRangeAsPDF () Diapazons.ExportAsFixedFormat tips: = xlTypePDF, Faila nosaukums:= _ "C: \ Lietotāji \ faila_nosaukums", Kvalitāte: = xlQualityStandard, _ IncludeDocProperties: = True, IgnorePrintAreas: = False, OpenAfterPublish: = True End Sub
Iepriekš minētais kods ir vispārējs kods, lai saglabātu fiksētu diapazonu kā PDF dokumentu. Kad jūsu ieraksta makro eksportēšanas laikā uz Excel tiek parādīts līdzīgs kods.
Diapazons:Tas var būt fiksēts diapazons, dinamiskais diapazons vai atlase. Jums tas jādefinē.
Faila nosaukums: Šis ir pilnībā kvalificēts pdf nosaukums. Definējiet to kā virkni.
Pārējos mainīgos var atstāt tādus, kādi tie ir. Es tos izskaidroju pēc piemēra.
Piemērs: izdrukājiet Excel kvīti PDF formātā, izmantojot VBA
Pieņemsim, ka jums ir regulāri jāizdrukā un jānosūta kvītis programmā Excel. Tādā gadījumā jūs vēlaties to automatizēt. Jūs nevēlaties atkal un atkal eksportēt Excel uz pdf. Ja jūs varat vienkārši izmantot pogu, lai to izdarītu, tas būtu noderīgi, vai ne?
Šeit es esmu izstrādājis šo kvīšu formātu. Es vēlos to izdrukāt/saglabāt/eksportēt kā pdf, izmantojot pogu "Izveidot PDF".
Šī kvīts aptver diapazonu "A2: L21". Es jau esmu iestatījis drukas apgabalu.
Lai ietaupītu uz šo Excel diapazonu kā PDF, mēs izmantosim iepriekš minēto vispārīgo VBA kodu Excel lapas eksportēšanai uz pdf. Mēs pielāgosim kodu atbilstoši mūsu prasībām.
Sub PrintSelectionToPDF () Dim billiceRng kā diapazons Dim pdfile Kā virkne 'Drukājamā iestatījuma diapazons Iestatiet billiceRng = Diapazons ("A1: L21")' iestatījuma faila nosaukums ar laika zīmogu. pdfile = "rēķins" & "_" & Format (Now (), "yyyymmdd_hhmmss") & ".pdf" ', nosakot pilnu kvalificēto nosaukumu. Iegūtais pdf tiks saglabāts tur, kur ir galvenais fails. pdfile = ThisWorkbook.Path & strfile invoiceRng.ExportAsFixedFormat Type: = xlTypePDF, _ Faila nosaukums: = pdfile, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAalsePublish: =
Izmantojot kodu:
Kopējiet iepriekš minēto kodu kvīšu failā, atverot VBA redaktoru (izmantojiet Alt+F11). Pielāgojiet drukājamā koda diapazonu un faila ceļu (ja vēlaties). Darba failu varat lejupielādēt zemāk.
Saglabājiet Excel diapazonu kā PDF, izmantojot VBA
Paskaidrojums:
Dim invoiceRng kā diapazons Dim pdfile kā virkne
Kods ir vienkāršs. Pirmkārt, mēs esam izveidojuši divus mainīgos. "InvoiceRng as Range" diapazonam/lapai, kuru vēlamies saglabāt kā pdf. strFile, lai iegūtu pilnībā kvalificētu PDF faila nosaukumu.
Iestatīt rēķinuRng = Diapazons ("A1: L21")
Tā kā mūsu drukāšanas diapazons ir fiksēts, mēs iestatām rēķinu diapazonu kā diapazonu ("A1: L21").
pdfile = "rēķins" & "_" & formāts (tagad (), "yyyymmdd_hhmmss") & ".pdf" pdfile = ThisWorkbook.Path & strfile
Iepriekš minētajās divās rindās mēs vispirms nosaucam failu ar laika zīmogu un pēc tam pievienojam galvenā faila ceļam. Tā rezultātā pdfile satur pilnībā kvalificētu iegūtā pdf faila nosaukumu.
invoiceRng.ExportAsFixedFormat _ Tips: = xlTypePDF, _ Faila nosaukums: = pdfile, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = True, _ OpenAfterPublish: = False
Visbeidzot, mēs izmantojam diapazona klases ExpoortAsFixedFormat metodi, lai izdrukātu definēto Excel diapazonu kā PDF. Mēs definējam tipu kā xlTypePDF. Vēl viena izvēle ir xlTypeXPS, kas atlasīto diapazonu saglabās kā XPS failu.
Mēs iestatījām faila nosaukumu kā pdfile, kurā ir pilnībā kvalificēta pdf faila nosaukuma virkne. Šeit varat uzrakstīt cieto kodu vai pielāgot to atbilstoši savām vajadzībām.
Tālāk mēs iestatījām pdf faila kvalitāti kā xlQualityStandard. Mums ir cita izvēle kā xlQualityMinimum.
Tālāk mēs iestatījām IncludeDocProperties kā True. Tas nozīmē, ka iegūtajam PDF failam būs dokumenta īpašības.
Tad mēs iestatījām IgnorePrintAreas kā True. Tas nozīmē, ka tas ignorēs jebkuru jau iestatīto drukas apgabalu.
Visbeidzot, mēs iestatījām OpenAfterPublish kā False. Tas nozīmē, ka jūsu izveidotais fails netiks atvērts automātiski. Es to iestatīju par nepatiesu, jo es izveidoju 100 failus, izmantojot cilpu, un es nevēlos, lai tie tiktu atvērti. Ja vēlaties atvērt failu pēc izveides, izmantojot Excel, iestatiet to True.
Izvēlētā diapazona drukāšana kā pdf
Viens no galvenajiem lietojumiem ir izdrukāt izvēlēto diapazonu, vienkārši noklikšķinot uz vienas pogas. Bet vislabāk to izmantot, izmantojot cilpu, kurā jāizveido vairāki kvītis dažādiem klientiem. Izveidojiet apakšdaļu datu aizpildīšanai un pēc tam izmantojiet šo kodu, lai cilpā drukātu atlasīto diapazonu.
Tātad, jā, puiši, šādā veidā jūs varat saglabāt atlasīto diapazonu kā pdf. Es ceru, ka tas jums bija noderīgs. Ja jums joprojām ir šaubas vai jautājumi par drukāšanu programmā Excel, izmantojot VBA, jautājiet komentāru sadaļā zemāk.
Drukājiet vairākas atlases uz vienas lapas, izmantojot VBA programmā Microsoft Excel | Atlasiet vairākus diapazonus un izdrukājiet katru diapazonu citā lapā, izmantojot VBA.
Drukājiet visas darbgrāmatas mapē, izmantojot VBA programmā Microsoft Excel | Izmantojiet šo VBA kodu, lai izdrukātu un saglabātu katru Excel darbgrāmatu mapē, izmantojot.
Populāri raksti:
Sadaliet Excel lapu vairākos failos, pamatojoties uz kolonnu, izmantojot VBA | Šī VBA koda sadalījuma Excel lapas pamatā ir unikālas vērtības noteiktā slejā. Lejupielādējiet darba failu.
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016 | Lai izslēgtu brīdinājuma ziņojumus, kas pārtrauc palaisto VBA kodu, mēs izmantojam lietojumprogrammu klasi.
Pievienojiet un saglabājiet jaunu darbgrāmatu, izmantojot VBA programmā Microsoft Excel 2016 | Lai pievienotu un saglabātu darbgrāmatas, izmantojot VBA, mēs izmantojam darbgrāmatu klasi. Workbooks.Add viegli pievieno jaunu darbgrāmatu, tomēr…