It is difficult to advise you without actually seeing what you want to
achieve.

Suggest you experiment with Fit to Page in Page Setup. If you set to 1 page
wide and delete the value in Tall (leave blank) then it prints to one page
wide by how ever many high is required.

I am sure you can record the code to get the correct syntax for your VBA code.

--
Regards,

OssieMac