sub MakePDF ()
Jeżeli Application.Version > 11 Wtedy
ActiveSheet.ExportAsFixedFormat Typ: =xlTypePDF, FileName: = _
"C:\ \ Book1.pdf", Ilość: =xlQualityStandard, IncludeDocProperties _
: =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Inny
MakePDF_UsePDFCreator
Kończyć Jeżeli
|