Code:
Private Sub Command1_Click()

Printer.Orientation = vbPRORLandscape

' If there are controls on the form that you DON'T want to print
' then do this, and then make it visible after the form is printed.
List1.Visible = False

' Print the current form. If this were being done from a module or
' some other form then you would do   Form1.PrintForm   instead
Me.PrintForm

List1.Visible = True

End Sub