Esse codigo salva em pdf, tente ajustar ao seu relatorio
Sub PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:relatorioDesacoplagem NOVA.pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Postado : 05/09/2015 6:36 am