Lang L: none (table-of-contents)
See õpetus näitab, kuidas Excel VBA -s PDF -i salvestada / printida.
Printige PDF -failiks
See lihtne protseduur prindib ActiveSheet PDF -i.
| 123456 | Sub SimplePrintToPDF ()ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = "demo.pdf", Quality: = xlQualityStandard, _IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueEnd Sub |
Olen loonud ka veahalduse jms funktsiooni, mis prindib ActiveSheet PDF -i:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | Alatrükk PDF ()Helistage Save_PDFEnd SubFunktsioon Save_PDF () kui Boolean 'Kopeerib lehed e-posti saatmiseks uude PDF-failiDim Thissheet stringina, ThisFile kui string, PathName kui stringDim SvAs stringinaApplication.ScreenUpdating = Vale„Hankige faili salvestamise nimiThissheet = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = Aktiivne töövihik. TeeSvAs = PathName & "\" & Thissheet & ".pdf"'Määrake prindikvaliteetVea korral Jätka järgmistActiveSheet.PageSetup.PrintQuality = 600Viga. SelgeViga GoTo 0'Õpetage kasutajale, kuidas saataViga GoTo RefLibErrorActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = SvAs, Quality: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueViga GoTo 0Ainult salvestamine:MsgBox "Selle lehe koopia on edukalt salvestatud .pdf -failina:" & Chr (13) & Chr (13) & SvAs & _"Vaadake .pdf dokument üle. Kui dokument EI paista hea, kohandage oma printimisparameetreid ja proovige uuesti."Save_PDF = TõsiGoTo EndMacroRefLibError:MsgBox "PDF -failina salvestamine nurjus. Teatmekogu ei leitud."Save_PDF = ValeEndMacro:Lõppfunktsioon |
Funktsioon tagastab tõese või vale, kui PDF -i printimine õnnestus või mitte.
PDF -i salvestamise ja saatmise funktsioon
See funktsioon salvestab ActiveSheet PDF -failina ja lisab (valikuliselt) PDF -i e -kirjale (eeldusel, et teil on Outlook installitud):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | Sub Test_Save_PDF ()Helista Send_PDF ("SendEmail")End SubFunktsioon Send_PDF (valikuline toiming kui String = "SaveOnly") Booleanina kopeerib lehed e-posti saatmiseks uude PDF-failiDim Thissheet stringina, ThisFile kui string, PathName kui stringDim SvAs stringinaApplication.ScreenUpdating = Vale„Hankige faili salvestamise nimiThissheet = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = Aktiivne töövihik. TeeSvAs = PathName & "\" & Thissheet & ".pdf"'Määrake prindikvaliteetVea korral Jätka järgmistActiveSheet.PageSetup.PrintQuality = 600Viga. SelgeViga GoTo 0'Õpetage kasutajale, kuidas saataViga GoTo RefLibErrorActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = SvAs, Quality: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueViga GoTo 0' Saada emailIf action = "SendEmail" SiisViga GoTo SaveOnlyApplication.Dialogs (xlDialogSendMail). NäitaViga GoTo 0GoTo EndMacroLõpp KuiAinult salvestamine:MsgBox "Selle lehe koopia on edukalt salvestatud .pdf -failina:" & Chr (13) & Chr (13) & SvAs & _"Vaadake .pdf dokument üle. Kui dokument EI paista hea, kohandage oma printimisparameetreid ja proovige uuesti."Send_PDF = TõsiGoTo EndMacroRefLibError:MsgBox "PDF -failina salvestamine nurjus. Teatmekogu ei leitud."Send_PDF = ValeEndMacro:Lõppfunktsioon |
