How to print fitted 1 page width and 1 page tall

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top