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...

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" <[email protected]> wrote in message news:[email protected]...
> 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...
>