PageSetup.Orientation (Word)

Returns or sets the orientation of the page. Possible return values are wdOrientLandscape - Landscape orientation, wdOrientPortrait - Portrait orientation.

Some of the WdOrientation constants may not be available to you, depending on the language support (U.S. English, for example) that you have selected or installed.

Set myDoc = Documents("MyDocument.doc") 
With myDoc 
 .PageSetup.Orientation = wdOrientLandscape 
 .PrintOut 
 .PageSetup.Orientation = wdOrientPortrait 
End With