Sub Export_PDF_Order()
 
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\TEMP\Desktop\Order.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub