Ich habe das numerische Äquivalent verwendet
Wenn lExcelVersion > 11 dann
ActiveSheet.ExportAsFixedFormat Art: =0, Dateiname: = _
„C:\Book1.pdf“, Qualität: =0, IncludeDocProperties _
: =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Beenden wenn