PageSetup.Orientation (Word)

Retorna ou define a largura da página. Leitura/gravação WdOrientation. Os valores de retorno possíveis são wdOrientLandscape - Orientação em paisagem, wdOrientPortrait - Orientação em retrato.

Algumas das constantes WdOrientation podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou.

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