sub MakePDF()
If Application.Version > 11 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\\Book1.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
MakePDF_UsePDFCreator
End If
|