capt,
Try this:
Private Sub CommandButton3_Click()
Worksheets("UserForm1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut

End Sub
In this example, "UserForm1" would change to the sheet name(ie Sheet1).
hth
:-)
"capt" wrote:

I have the following code to print UserForm1.

Private Sub CommandButton3_Click()
UserForm1.PrintForm
End Sub

How do I get it to print in landscape?

Thank you
--
capt