Tento tutoriál ukáže, ako uložiť / tlačiť do formátu PDF v programe Excel VBA.
Tlač do PDF
Tento jednoduchý postup vytlačí ActiveSheet do PDF.
| 123456 | Sub SimplePrintToPDF ()ActiveSheet.ExportAsFixedFormat Typ: = xlTypePDF, Názov súboru: = "demo.pdf", Kvalita: = xlQualityStandard, _IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueKoniec pod |
Tiež som vytvoril funkciu na spracovanie chýb atď., Ktorá vytlačí ActiveSheet do PDF:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | Sub PrintPDF ()Zavolajte Save_PDFKoniec podFunkcia Save_PDF () As Boolean 'Skopíruje listy do nového súboru PDF na odoslanie e-mailomDim thissheet as String, ThisFile as String, PathName As StringDim SvAs ako reťazecApplication.ScreenUpdating = False„Získajte názov súboru na uloženieThissheet = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = PathName & "\" & Thissheet & ".pdf"'Nastavte kvalitu tlačePri chybe Pokračovať ďalejActiveSheet.PageSetup.PrintQuality = 600Err. JasnéPri chybe GoTo 0'Poučte používateľa o odoslaníPri chybe GoTo RefLibErrorActiveSheet.ExportAsFixedFormat Typ: = xlTypePDF, Názov súboru: = SvAs, Kvalita: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TruePri chybe GoTo 0Uložiť iba:MsgBox "Kópia tohto hárka bola úspešne uložená ako súbor .pdf:" & Chr (13) & Chr (13) & SvAs & _"Prezrite si dokument .pdf. Ak dokument NIE JE v poriadku, upravte parametre tlače a skúste to znova."Save_PDF = PravdaGoTo EndMacroRefLibError:MsgBox "Nedá sa uložiť ako PDF. Referenčná knižnica nebola nájdená."Save_PDF = nepravdaEndMacro:Koncová funkcia |
Ak bola tlač do PDF úspešná alebo nie, funkcia vráti hodnotu TRUE alebo FALSE.
Funkcia PDF na uloženie a odoslanie e -mailom
Táto funkcia uloží ActiveSheet ako PDF a (voliteľne) pripojí PDF k e -mailu (za predpokladu, že máte nainštalovaný Outlook):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | Vedľajší test_Uložiť_PDF ()Zavolajte na Send_PDF („SendEmail“)Koniec podFunkcia Send_PDF (voliteľná akcia ako reťazec = „Uložiť iba“) ako booleovský „skopíruje listy do nového súboru PDF na odosielanie e-mailomDim thissheet as String, ThisFile as String, PathName As StringDim SvAs ako reťazecApplication.ScreenUpdating = False„Získajte názov súboru na uloženieThissheet = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = PathName & "\" & Thissheet & ".pdf"'Nastavte kvalitu tlačePri chybe Pokračovať ďalejActiveSheet.PageSetup.PrintQuality = 600Err. JasnéPri chybe GoTo 0'Poučte používateľa o odoslaníPri chybe GoTo RefLibErrorActiveSheet.ExportAsFixedFormat Typ: = xlTypePDF, Názov súboru: = SvAs, Kvalita: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TruePri chybe GoTo 0' Poslať emailAk akcia = „Odoslať e -mail“ PotomPri chybe GoTo SaveOnlyApplication.Dialogs (xlDialogSendMail) .ShowPri chybe GoTo 0GoTo EndMacroKoniec AkUložiť iba:MsgBox "Kópia tohto hárka bola úspešne uložená ako súbor .pdf:" & Chr (13) & Chr (13) & SvAs & _"Prezrite si dokument .pdf. Ak dokument NIE JE v poriadku, upravte parametre tlače a skúste to znova."Send_PDF = PravdaGoTo EndMacroRefLibError:MsgBox "Nedá sa uložiť ako PDF. Referenčná knižnica nebola nájdená."Send_PDF = nepravdaEndMacro:Koncová funkcia |
