Print (Zoom)

Robb

Board Regular
Joined
Feb 17, 2002
Messages
145
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
 

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"
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?
 
Upvote 0
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
 
Upvote 0
Actually, I don't think you need the zoom line at all. Why not try commenting it out. If it works, delete it.

:)
 
Upvote 0

Forum statistics

Threads
1,213,538
Messages
6,114,218
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top