Visual Basic para Aplicaciones - orientacion en la impresion

por favor necesito saber como cambiar la orientacion del la impresion (horizontal o vertical) mediante condigo

gracias y un saludo

Option Explicit
Dim Prn As Printer

Private sub imprimeTexto
Prn.FontName = "Courier New"
Prn.FontSize = "10"
Prn.Orientation = vbPRORLandscape
' vbPRORLandscape es horizontal
' vbPRORPortrait es vertical
prn.Print 'Estoy imprimendo horizontal'
' o imprimiendo el contenido de un texbox
prn.print texbox1