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" <SupperDuck@discussions.microsoft.com> wrote in message news:B7CD19A4-F1DC-4590-862A-9E1E87B0D86D@microsoft.com...
> 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...
>