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

[juanutcm]

Hola que tal mira te paso una linea que a mi en lo particular me ha ayudado demasiado al momento de imprimir reportes puesto que utilizo tambien los Data Report...


DataReport1.Orientation = vbPRORPortrait 'Alinear el reporte de manera horizontal o vertical segun el reporte lo requiera


Orientación del papel


vbPRORPortrait Los documentos se imprimen con la parte superior en el lado estrecho del papel
vbPRORLandscape Los documentos se imprimen con la parte superior en el lado ancho del papel


Ojala te sea de ayuda...

[carnero]

porque no tengo esa opcion?
orientation??