PDA

View Full Version : How to make print area fit entire page?



EirikDaude
06-17-2014, 11:13 PM
I have a print area which I want to fit onto an A3-page. This isn't really an issue using the various scaling options on the print screen. My problem is that the height and width of the print area doesn't scale exactly to an A3-page, if it scales to fit all the rows on the page, the area isn't wide enough to fit the page. If it scales to fit all columns on one page, the rows are too tall, so it prints to two pages.

So my question is; is there any way to make both the rows and columns of the print area fit exactly onto the printed page? Or is the only way to do this to manually resize the column widt/row heights till I get the result I want?

westconn1
06-18-2014, 04:28 AM
use the pagesetup of the range
.PageSetup.FitToPagesWide

EirikDaude
06-18-2014, 05:47 AM
Thanks, I found some more info on it in the helpfile thanks to your pointer.

So what I'd do is something like (I'd try it out, but I don't have access to either the workbook or a printer right now...):

With Worksheets("Sheet1").Range("Print_Area").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With