I have this code to save a file as pdf.
Private Sub CommandButton1_Click()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:="C:\release\testpage2.pdf", _
OpenAfterPublish:=False, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _...