I have a Word (not Excel) multipage userform (5 pages). One client wants to have "images" of each of the pages to write on by hand - yes really! I have a command button to print the entire userform with the following sub:

Private Sub CommandButton1_Click()


For i = 0 To 4
Me.MultiPage1.Value = i
Me.PrintForm
Next
End Sub

This of course prints each page in portrait rather than landscape and gets cut off. I could probably change my printer defaults, but for my clients who want to print, I need some code as they won't be able to change their defaults easily. Does anyone have VBA code to add to this sub to get each page in landscape? I am unable to use =wdOrientLandscape, etc., since we aren't talking about word docs; rather the userform itself. Thanks.