Increase Print Size on PDF export

howard

Well-known Member
Joined
Jun 26, 2006
Messages
5,423
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


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
 

Some videos you may like

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
5,288
Office Version
365
Platform
Windows
Try this method to set the zoom to 150% before export and then reset it to 100% after export

Code:
    [COLOR=#ff0000]ActiveSheet.PageSetup.Zoom = 150[/COLOR]
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\My Documents\" & "\" & ActiveSheet.Range("E822").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    [COLOR=#ff0000]ActiveSheet.PageSetup.Zoom = 10[/COLOR][COLOR=#ff0000]0[/COLOR]
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,089,889
Messages
5,411,047
Members
403,337
Latest member
lgjohan

This Week's Hot Topics

Top