Solo queria compartir con vosotros , el resultado de una ardua tarea de investigación. Despues de peinar este foro sin resultado he conseguido imprimir un informe en horizontal con datareport.
Como he visto que habia muchos mensajes acerca del tema y ninguno con una respuesta efectiva, he decidido contaros como lo hice:
Debeis de añadir a vuestro proyecto la siguiente libreria:
(http://support.microsoft.com/downloa...es/PageSet.exe)
y luego.....
Dim obj As PageSet.PrinterControl
Private Sub Command1_Click()
On Error GoTo errorhandler:
Set obj = New PrinterControl
obj.ChngOrientationLandscape
DataReport1.Show
DataReport1.PrintReport False, rptRangeFromTo, 1, 1
Exit Sub
errorhandler:
MsgBox Err.Description
obj.ReSetOrientation
End Sub
y a imprimir......

si el enlace no funciona contestar al msj diciendome como puedo adjuntar ficheros y os adjunto el fichero que tengo yo.
Adios
