Macro to Export range a PDF -columns to be on one page

[howard]

I have written code to export a range named "Journals" ("A42:E150")

I need the code amended so that Column A:E fits on page




it would be appreciated if someone could assist me

Sub Export_Journals_as_PDF()

 Application.ScreenUpdating = False
Range("Journals").Select
ActiveSheet.PageSetup.Zoom = 150
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & "\" & ActiveSheet.Range("A42").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.PageSetup.Zoom = 100
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Range("Journals").Select
ActiveSheet.PageSetup.Zoom = 100


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & "\" & ActiveSheet.Range("A42").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.PageSetup.Zoom = 100
Application.ScreenUpdating = True

End Sub

 

[GWteB]

Something like this ...

Sub Export_Journals_as_PDF()

    With ActiveSheet.PageSetup
        .PrintArea = "$A$42:$E$150"
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\My Documents\" & ActiveSheet.Range("A42").Value & ".pdf", _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

 

[howard]

Thanks for the help-Code works perfectly

 

[GWteB]

You're welcome & thanks for letting me know.