Print area to fit page width using vba

I have a macro that saves the print area to a pdf file and automatically names it according to the company naming convention that is required. I did not realize that the saving was not taking up the page. I would like the print area to be one full page wide.

I'm thinking that if I go to the print menu while recording a macro that I can capture the code to make it do as I need. But, I thought I would check with some experts beforehand. I use this sheet about a hundred times a day give or take.

Here is my macro:

Please Login or Register  to view this content.

Hi Mr_Phil,

Try the following:
a. Use a font size that is too large to fit on one page.
b. Use code like the following code to force the print area to be one page wide:

Please Login or Register  to view this content.

I have used the above technique successfully many times. I usually want font size 11, but I set the font size to 18. Excel automatically reduces the Zoom so that the output is one page wide. This has worked for me as long as the resulting Zoom factor is 10% < Zoom Factor < 400%.

Lewis

Originally Posted by LJMetzger

Hi Mr_Phil,

Try the following:
a. Use a font size that is too large to fit on one page.
b. Use code like the following code to force the print area to be one page wide:

Please Login or Register  to view this content.

I have used the above technique successfully many times. I usually want font size 11, but I set the font size to 18. Excel automatically reduces the Zoom so that the output is one page wide. This has worked for me as long as the resulting Zoom factor is 10% < Zoom Factor < 400%.

Lewis

I went the code route since I am self tutoring. I wanted to look for it and try to understand it. It Worked like a charm. Thank you for taking the time to help me.