Visual Basic - Reporte horizontal

Life is soft - evento anual de software empresarial
 
Vista:

Reporte horizontal

Publicado por tono (34 intervenciones) el 04/04/2007 14:23:09
Hola a tod@s !!! Tengo en mi aplicación una opción para crear reportes de la base de datos que utiliza mi sistema, utilizando un datareport. El código que utilizo para crear el reporte es el siguiente:

'LAS VARIABLES CONEX Y RECORD ESTAN DECLARADAS EN EL MODULO
'COMO VARIABLES PUBLICAS
Private Sub obtener_reporte()
Dim cadena, sql, path As String
path = App.path & "\bd.mdb"
'LA VARIABLE PATH ES LA DIRECCION FISICA DE LA BASE DE DATOS
'DE ACCESS O SEA KE DEBERAS CAMBIARLA SI TIENES OTRA BASE DE
'DATOS O DIRECCION FISICA DE LA MISMA
Set conex = New ADODB.Connection
Set record = New ADODB.Recordset
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist Security Info=False"
conex.ConnectionString = cadena
conex.Open cadena
tipo = List1.Text
sql = "select Descripción,CódigoCampo,TipoFicha from CAMPO "
'SI DESEAS OBTENER UN REGISTRO EN ESPECIAL DEBES CAMBIAR EL COMANDO SQL
record.LockType = adLockOptimistic
record.CursorLocation = adUseClient
record.CursorType = adOpenDynamic
record.Open sql, conex
'AQUI SE ASIGNA EL DATA SOURCE DEL RECORDSET AL DATA SOURCE DEL DATAREPORT
With DataReport1
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = record.DataSource
'AQUI SE HACE REFERENCIA A LAS CASILLAS DE TEXTO DEL DATAREPORT
'Y SE LES ASIGNA UN CAMPO A CADA UNA PROVENIENTE DEL RECORDSET
For i = 1 To 3
.Sections("Sección1").Controls.Item(i).DataMember = ""
.Sections("Sección1").Controls.Item(i).DataField = record.Fields(i - 1).Name
Next i
End With
DataReportt1.
DataReport1.Show

End Sub

pero lo que me gustaría es poner el reporte en HORIZONTAL.

Para ello me he estado informando que existen dos posibilidades:
1) Actualizar mi versión de vb a servipack 5 y utilizar la propiedad "Localitation" de mi reporte (pero esto no puedo hacerlo ya que me da error cada vez que intento actualizarlo).

2) Descargarme una libreria que me permite realizar esto (pero tengo el mismo problema anterior).

¿Existe alguna manera de poner el reporte en horizontal con el código que he presentado y sin utilizar alguna de las 2 opciones anteriores?

Gracias de antemano, y perdonen mi ignorancia.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder