I have a sheet that I export to PDF using a macro below
I would like to amend this to increase the PDF doc to 150% before exporting the doc
It would be appreciated if someone could amend my code
I would like to amend this to increase the PDF doc to 150% before exporting the doc
Code:
Sub Export_Summary_as_PDF()
Application.ScreenUpdating = False
Range("Summary").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & "\" & ActiveSheet.Range("E822").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Range("Summary").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & "\" & ActiveSheet.Range("E822").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub
It would be appreciated if someone could amend my code