SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por:     en Sábado 23 de Octubre de 2004, 19:55

Título: Datareport Horizontal
Publicado por:     en Sábado 23 de Octubre de 2004, 19:55

Buenas tardes foreros,

Me dirijo nuevamente a ustedes con el objeto de tratar de resolver un problema el cual es el lograr que un DataReport se muestre Horizontal y que su impresión sea igual ya que los campos o datos que contendra exceden el ancho de la hoja.

Normalmente solo uso el DataEnvironmet para conectarlo al DataReport a una tabla específica, usando una sentencia SQL que busca por rango de fechas y otras variables los registros de 4 tablas y los inserta en una tabla llamada Reporte.

Ya con la información en la tabla la cual supera más de 50 campos, cómo lograría mostrar esto en el DataReport de forma horizontal ya que en forma vertical normal de la hoja es imposible mostrar tantos campos sin que excedan el ancho de la hoja.

PD: Que service pack se utiliza para lograr colocar Etiquetas en forma vertical o control del datareport para poder colocar etiquetas de forma vertical.

Muchas gracias por cualquier asesoramiento al respecto.
saludos.

Título: Re: Datareport Horizontal
Publicado por:     en Sábado 23 de Octubre de 2004, 20:51

Problema resuelto, bajando la libreria PageSet.dll de la web de Microsft y con el siguiente código:

Código: Text

1.  
2.     Dim obj As PageSet.PrinterControl
3.     On Error GoTo errorhandler:
4.     Set obj = New PrinterControl
5.     obj.ChngOrientationLandscape
6.     DataReport.Show
7.     DataReport.PrintReport False, rptRangeFromTo, 1, 1
8.  
9.     Exit Sub
10.  
11. errorhandler:
12.     MsgBox Err.Description
13.     obj.ReSetOrientation
14.  
15.  

Se muestra la hoja del DataReport en forma Horizontal, saludos.