Usando o gravador de macros:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:Um Endereço QualquerPasta1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Postado : 24/02/2016 6:43 am