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
I need the code amended so that Column A:E fits on page
it would be appreciated if someone could assist me
Code:
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