Ovaj će vodič pokazati kako spremiti / ispisati u PDF -u u programu Excel VBA.
Ispis u PDF
Ovaj jednostavan postupak ispisat će ActiveSheet u PDF.
| 123456 | Sub SimplePrintToPDF ()ActiveSheet.ExportAsFixedFormat Vrsta: = xlTypePDF, Naziv datoteke: = "demo.pdf", Kvaliteta: = xlQualityStandard, _IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueKraj podm |
Također sam stvorio funkciju s rukovanjem pogreškama itd. Koja će ispisati ActiveSheet u PDF:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | PodispisPDF ()Nazovite Save_PDFKraj podmFunkcija Save_PDF () As Boolean 'Kopira listove u novu PDF datoteku za slanje e-poštomZatamni ovu tablicu kao niz, ovu datoteku kao niz, ime puta kao nizDim SvAs As StringApplication.ScreenUpdating = Netačno'Get File Save NameOvaj list = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = Ime putanje & "\" & Ovaj list & ".pdf"'Postavite kvalitetu ispisaUključeno Slijedi nastavak greškeActiveSheet.PageSetup.PrintQuality = 600Greška.JasnoUključeno Greška Idi na 0'Uputite korisnika kako poslatiUključena greška Idi na RefLibErrorActiveSheet.ExportAsFixedFormat Vrsta: = xlTypePDF, Naziv datoteke: = SvAs, Kvaliteta: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueUključeno Greška Idi na 0Spremi samo:MsgBox "Kopija ovog lista uspješno je spremljena kao .pdf datoteka:" & Chr (13) & Chr (13) & SvAs & _"Pregledajte .pdf dokument. Ako dokument NE izgleda dobro, prilagodite parametre ispisa i pokušajte ponovo."Spremi_PDF = IstinaIdi na EndMacroRefLibError:MsgBox "Nije moguće spremiti kao PDF. Referentna biblioteka nije pronađena."Spremi_PDF = NetačnoEndMacro:Završna funkcija |
Funkcija vraća TRUE ili FALSE ako je ispis u PDF bio uspješan ili ne.
Spremi i pošalji PDF funkciju
Ova će funkcija spremiti ActiveSheet kao PDF i (po izboru) priložiti PDF u e -pošti (pod pretpostavkom da imate instaliran Outlook):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | Sub Test_Save_PDF ()Nazovite Send_PDF ("SendEmail")Kraj podmFunkcija Send_PDF (Opcionalna radnja As String = "SaveOnly") Kao Boolean 'Kopira listove u novu PDF datoteku za slanje e-poštomZatamni ovu tablicu kao niz, ovu datoteku kao niz, ime puta kao nizDim SvAs As StringApplication.ScreenUpdating = Netačno'Get File Save NameOvaj list = ActiveSheet.NameThisFile = ActiveWorkbook.NamePathName = ActiveWorkbook.PathSvAs = Ime putanje & "\" & Ovaj list & ".pdf"'Postavite kvalitetu ispisaUključeno Slijedi nastavak greškeActiveSheet.PageSetup.PrintQuality = 600Greška.JasnoUključeno Greška Idi na 0'Uputite korisnika kako poslatiUključena greška Idi na RefLibErrorActiveSheet.ExportAsFixedFormat Vrsta: = xlTypePDF, Naziv datoteke: = SvAs, Kvaliteta: = xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, OpenAfterPublish: = TrueUključeno Greška Idi na 0' Pošalji e-mailAko je akcija = "SendEmail" ZatimUključeno Pogreška GoTo SaveOnlyAplikacija.Dijalozi (xlDialogSendMail) .PrikažiUključeno Greška Idi na 0Idi na EndMacroZavrši akoSpremi samo:MsgBox "Kopija ovog lista uspješno je spremljena kao .pdf datoteka:" & Chr (13) & Chr (13) & SvAs & _"Pregledajte .pdf dokument. Ako dokument NE izgleda dobro, prilagodite parametre ispisa i pokušajte ponovo."Pošalji_PDF = IstinaIdi na EndMacroRefLibError:MsgBox "Nije moguće spremiti kao PDF. Referentna biblioteka nije pronađena."Pošalji_PDF = NetačnoEndMacro:Završna funkcija |
