Visual Basic - Datareport ayuda!!

Quiero generar un reporte que tiene muchos datos, pero no se como hacer para que me entre todo en el mismo, porque me da un error cdo. lo intento generar (no entra en la pagina)

Si tienes el service pack 6 instalado puedes colocar la opcion
Reporte.Orientation = rptOrientLandscape

Caulquier ayuda escribeme.

Sergio.

Hola Sergio,
¿Cómo lo hiciste? Porque yo tengo instalado el SP6 y en los DataReport no me aparece esa propiedad.
El VB instalado es el Visual Basic 6.0 Edidión Profesional en español.

Hola yomesmo, esa propiedad no sale en la ventana de esplorador de propiedades, tienes que ponerla por código antes de mostrar el data report.
Ejemplo:

DataEnvironment1.rsTest.Open "SELECT * FROM Tabla", conexion, adOpenDynamic,_ adLockOptimistic

DataReport1.Orientation = rptOrientationLandscape
DataReport1.Show

Antes tienes que ligar el dataenvironment con el datareport (solo si usas DataEnvironment)
Eso, cualquier duda me escribes.
Sergio

Gracias Sergio, pero sigue el problema.
Me dá error de compilación: No se encontró el método o el miembro de datos. ¿Será porque no uso del dataenvironment?
El DataReport lo cargo por código a través de un recordset ADO.

Tengo la misma inquietud, con este código me sale el mismo error

Set CmdReporte = New ADODB.Command
CmdReporte.ActiveConnection = CN
CmdReporte.CommandType = adCmdText
CmdReporte.CommandText = " Select CA_1,CA_2,CA_3,CA_4,CA_5,CA_6,CA_7,CA_8,CA_9,CA_10 " _
& " From IMPR Where de_tmp='" & Usuario & "' And st_regs='G' Order By Fi_Fila Asc"
CmdReporte.CommandTimeout = 0
Set DR_RECLA.DataSource = CmdReporte.Execute

DR_RECLA.Sections("CABECERA").Controls("EGRUPO").Caption = "GRUPO :" & Trim(LbGrupo)
DR_RECLA.Sections("CABECERA").Controls("ECPIA").Caption = "Empresa : " & Trim(LbCpia)

DR_RECLA.Sections("DETALLES").Controls("txt1").DataField = "CA_1"
DR_RECLA.Sections("DETALLES").Controls("txt2").DataField = "CA_2"
DR_RECLA.Sections("DETALLES").Controls("txt3").DataField = "CA_3"
DR_RECLA.Sections("DETALLES").Controls("Txt4").DataField = "CA_4"
DR_RECLA.Sections("DETALLES").Controls("Txt5").DataField = "CA_5"
DR_RECLA.Sections("DETALLES").Controls("Txt6").DataField = "CA_6"
DR_RECLA.Sections("DETALLES").Controls("Txt7").DataField = "CA_7"
DR_RECLA.Sections("DETALLES").Controls("Txt8").DataField = "CA_8"
DR_RECLA.Sections("DETALLES").Controls("Txt9").DataField = "CA_9"
DR_RECLA.Sections("DETALLES").Controls("Txt10").DataField = "CA_10"

Screen.MousePointer = 1
DR_RECLA.Orientation = rptOrientLandscape
DR_RECLA.Show vbModal