Print (Zoom)

[Robb]

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

[Anne Troy]

I thought someone ought to reply even though your question is strange--no offense!

Zoom has nothing to do with the print setup or print output. I don't know why you are changing the zoom at all. I don't know what intPrintSize is either, though...

Is there some reason you can't just tell it to Fit to?

[Robb]

Thank you for replying...

With your help I fixed my problem, here's what works.

Sheets("Print Document").Select

With Worksheets("Print Document").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut

[Anne Troy]

Actually, I don't think you need the zoom line at all. Why not try commenting it out. If it works, delete it.