My code adjusts the zoom (depending on a Portable Printer or Laser) but the width gets smaller when I decrease the .zoom or my length gets bigger when I increase the .zoom.
How can I force the length and width to fit when I adjust the zoom.
This is what I have right now:
' Call the function to select the type of printer (Laser/Portable)
Call PrintSize(intPrintSize)
Application.ScreenUpdating = False
Sheets("Print Document").Select
With Worksheets("Print Document").PageSetup
.PrintArea = "$A$1:$T$78"
.Zoom = intPrintSize
.CenterVertically = False
.CenterHorizontally = False
End With
'ActiveSheet.PrintOut
ActiveSheet.PrintPreview ' used for testing purposes
How can I force the length and width to fit when I adjust the zoom.
This is what I have right now:
' Call the function to select the type of printer (Laser/Portable)
Call PrintSize(intPrintSize)
Application.ScreenUpdating = False
Sheets("Print Document").Select
With Worksheets("Print Document").PageSetup
.PrintArea = "$A$1:$T$78"
.Zoom = intPrintSize
.CenterVertically = False
.CenterHorizontally = False
End With
'ActiveSheet.PrintOut
ActiveSheet.PrintPreview ' used for testing purposes