Satura rādītājs
Šī apmācība parādīs, kā Excel VBA saglabāt / drukāt PDF failā.
Drukāt PDF formātā
Šī vienkāršā procedūra ActiveSheet izdrukās PDF failā.
| 123456 | Sub SimplePrintToPDF ()ActiveSheet.ExportAsFixedFormat tips: = xlTypePDF, faila nosaukums: = "demo.pdf", kvalitāte: = xlQualityStandard, _IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueBeigu apakš |
Esmu arī izveidojis funkciju ar kļūdu apstrādi utt., Kas izdrukās ActiveSheet uz PDF:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | Apakšdruka PDF ()Zvaniet Save_PDFBeigu apakšFunkcija Save_PDF () kā Būla 'Kopē lapas jaunā PDF failā e-pastamAptumšojiet šo lapu kā virkni, šo failu kā virkni, ceļa nosaukumu kā virkniDim SvAs kā virkneApplication.ScreenUpdating = Nepareizi'Iegūstiet faila saglabāšanas nosaukumuŠī lapa = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = Ceļa nosaukums & "\" & šī lapa & ".pdf"'Iestatiet drukas kvalitātiPar kļūdu Atsākt nākamoActiveSheet.PageSetup.PrintQuality = 600Kļūda. SkaidrsKļūda GoTo 0'Norādiet lietotājam, kā nosūtītPar kļūdu GoTo RefLibErrorActiveSheet.ExportAsFixedFormat tips: = xlTypePDF, faila nosaukums: = SvAs, kvalitāte: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueKļūda GoTo 0Tikai saglabāšana:MsgBox "Šīs lapas kopija ir veiksmīgi saglabāta kā .pdf fails:" & Chr (13) & Chr (13) & SvAs & _"Pārskatiet .pdf dokumentu. Ja dokuments neizskatās labi, pielāgojiet drukāšanas parametrus un mēģiniet vēlreiz."Save_PDF = PatiesiGoTo EndMacroRefLib kļūda:MsgBox "Nevar saglabāt kā PDF failu. Atsauces bibliotēka nav atrasta."Save_PDF = NepareiziEndMacro:Beigu funkcija |
Funkcija atgriež TRUE vai FALSE, ja izdrukāšana PDF failā bija veiksmīga vai nē.
Funkcija Saglabāt un nosūtīt pa e -pastu
Šī funkcija saglabās ActiveSheet kā PDF failu un (pēc izvēles) pievienos PDF failu e -pastam (pieņemot, ka jums ir instalēta programma Outlook):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | Apakštests_Saglabāt_PDF ()Zvanīt Send_PDF ("SendEmail")Beigu apakšFunkcija Send_PDF (neobligāta darbība As String = "SaveOnly") Kā Būla kopē lapas jaunā PDF failā e-pastamAptumšojiet šo lapu kā virkni, šo failu kā virkni, ceļa nosaukumu kā virkniDim SvAs kā virkneApplication.ScreenUpdating = Nepareizi'Iegūstiet faila saglabāšanas nosaukumuŠī lapa = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = Ceļa nosaukums & "\" & šī lapa & ".pdf"'Iestatiet drukas kvalitātiPar kļūdu Atsākt nākamoActiveSheet.PageSetup.PrintQuality = 600Kļūda. SkaidrsKļūda GoTo 0'Norādiet lietotājam, kā nosūtītPar kļūdu GoTo RefLibErrorActiveSheet.ExportAsFixedFormat tips: = xlTypePDF, faila nosaukums: = SvAs, kvalitāte: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueKļūda GoTo 0' Sūtīt e-pastuIf action = "SendEmail" TadPar kļūdu GoTo SaveOnlyApplication.Dialogs (xlDialogSendMail). ParādītKļūda GoTo 0GoTo EndMacroBeigas JaTikai saglabāšana:MsgBox "Šīs lapas kopija ir veiksmīgi saglabāta kā .pdf fails:" & Chr (13) & Chr (13) & SvAs & _"Pārskatiet .pdf dokumentu. Ja dokuments neizskatās labi, pielāgojiet drukāšanas parametrus un mēģiniet vēlreiz."Send_PDF = PatiesaGoTo EndMacroRefLib kļūda:MsgBox "Nevar saglabāt kā PDF failu. Atsauces bibliotēka nav atrasta."Send_PDF = NepareiziEndMacro:Beigu funkcija |
