How to print fitted 1 page width and 1 page tall
 

Dear all,

I can select print area with code. But cannot make the print our.

But the selected place must fit on 1 page tall &width.

thanks...

How to print fitted 1 page width and 1 page tall
 

Hi SupperDuck

Try

With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlLandscape
End With

--
Regards Ron De Bruin
http://www.rondebruin.nl



"SupperDuck" wrote in message ...
Dear all,

I can select print area with code. But cannot make the print our.

But the selected place must fit on 1 page tall &width.

thanks...