printing a userform to fit on 1 page

[gr8trthanu]

When I select a command button to print a form, the form prints on 2 pages and is portrait. I am using frmmodel.printform. What is the code to make it go landdscape andon 1 page only

thanks again to you all

 

[Diablo II]

Worksheets("Sheet1").PageSetup.Orientation = xlLandscape

or to fit on one page long

With Worksheets("Sheet1").PageSetup
 .Zoom = False
 .FitToPagesTall = 1
 .FitToPagesWide = 1
End With

 

[gr8trthanu]

Thanks for the help however its not a worksheet but a userform in VBA

 

[Diablo II]

so are you trying to print it on a printer or you trying to make it fit to your screen.

 

[gr8trthanu]

I am trying to print to a printer.