Impresion de data report en forma vertical automaticamnte

[vhpc]

Hola que tal amigos del foro...
Mi pregunta es la siguiente el otro dia uno de los amigos del foro puso este código para imprimir

Private Sub Imprimir_Click()
Dim PlantContAsist As New DR_PlantContAsist
' Seleccionar la impresora a usar (23/Ene/00)

' La detección de errores es por si no hay impresora instalada
On Error Resume Next

With CommonDialog1
.DialogTitle = "Seleccionar impresora"
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
Err = 0
End Sub

para mandar llamar un common dialog y mandar imprimir, y si efectivamente manda llamar un common pero al momento de mandar imprimir simplemente no imprime nada, cabe mencionar que estoy trabajando con un datareport que va obteniendp datos de una query.

Se preguntaran porque no simplemente utilizo el procedimiento implicito al momento de crear el Objeto de tipo "New" y asi imprimir, pero es que mis reportes salen en forma vertical y yo los necesito en horizontal automáticamente es por eso que no entiendo que hace falta al código anterior.
ejemplo:
mi datareport se llama
PlantContAsist y utilizo
PlantContAsist.PrintReport para mandar imprimir el reporte pero no me convence ya que tengo que estar cambiando su configuración cada que mando un reporte a la impresora...

cualquier ayuda de ustedes será muy valiosa como siempre para mi gracias