Šajā rakstā mēs uzzināsim, kā izdrukāt tabulu programmā Excel.
Scenārijs:
Kad esat pabeidzis savu tabulu un jums ir nepieciešama lapas cietā kopija. Jūs varat vienkārši atlasīt šūnu tabulas diapazonā. Un pēc tam noklikšķiniet Fails -> Drukāt -> un sadaļā Drukāt atlasiet pogu Tabulas opcija kāda sadaļa. Bet Excel to vienkārši izdrukās. Šeit mēs uzzinām, kā mēs varam izdrukāt jebkuru tabulu programmā Excel.
Lai programmā Excel saglabātu atlasīto diapazonu (piemēram, kvīti) PDF formātā, izmantojot VBA, izmantojiet zemāk esošo sintaksi.
Ģenētiskais 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.
Ceru, ka šis raksts par tabulas drukāšanu programmā Excel ir paskaidrojošs. Vairāk rakstu par vērtību un saistīto Excel formulu aprēķināšanu meklējiet šeit. Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook. Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē.
Drukājiet vairākas atlases vienā lapā, izmantojot Microsoft Excel VBA | Atlasiet vairākus diapazonus un izdrukājiet katru diapazonu citā lapā, izmantojot VBA.
Drukājiet visas darbgrāmatas mapē, izmantojot Microsoft Excel VBA | Izmantojiet šo VBA kodu, lai izdrukātu un saglabātu katru Excel darbgrāmatu mapē, izmantojot.
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…
Populāri raksti:
Kā lietot funkciju IF programmā Excel : IF priekšraksts programmā Excel pārbauda nosacījumu un atgriež noteiktu vērtību, ja nosacījums ir TRUE, vai atgriež citu noteiktu vērtību, ja FALSE.
Kā lietot funkciju VLOOKUP programmā Excel : Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
Kā lietot funkciju SUMIF programmā Excel : Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.
Kā lietot funkciju COUNTIF programmā Excel : Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai saskaitītu noteiktas vērtības. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.