Visual Basic - Reporte horizontal

Life is soft - evento anual de software empresarial
 
Vista:

Reporte horizontal

Publicado por tono (34 intervenciones) el 09/04/2007 16:22:39
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

RE:Reporte horizontal

Publicado por palomo (20 intervenciones) el 09/04/2007 22:49:27
¿y para eso nos pones todo el rollo de tu codigo, por cierto bastante malo?
le buscas al datareport la propiedad orientation y se la pones en horizontal, me parese que en el english se llama landscape o algo paresido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Reporte horizontal

Publicado por tono (34 intervenciones) el 10/04/2007 01:10:11
Querido Palomo, se nota que no has leido bien la nota que he agredado.

Evidentemente que ya sé que la propiedad "orientation"=landscape del reporte soluciona el problema, pero para eso hay que tener el service pack 5 o posterior, cosa que no tengo porque tengo problemas de actualización.

Además reconozco que el código es bastante malo, por eso pido perdón en mi nota.

Lo que tienes que hacer es contestar con más verguenza y educación, y sino la tienes pues no respondas. Yo estoy empezando en esto y no pasa nada por tener un código malo, por eso soy principiante.

Si tienes una propuesta mejor me la indicas si eres tan amable y sino te apetece pues no respondas, porque lo que quiero es mejorar en esto y no que me critiquen.

Un saludo palomino.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar