Diseño reporte independiente de Impresora

[[sitrico]]

Yo, lo solucioné asi:

Cree el reporte usando medidas en milimetros para posicionar los campos (un archivo de configuracion +- así:

x,y,Nombrecampo

Luego (con qreport) defino una banda del tamaño máximo de la hoja impresa (menos los márgenes).

Al leer el band.width, band.heigth obtengo el ancho y alto en pixeles del area imprimible (conozco las medidas del papel en mi caso carta 8½ x 11" (no me acuerdo en cm pero pueden multiplicar por 2,54 1" = 2,54cm) con 1cm de margen por cada lado).

Luego con esa información aplico una regla de 3 y determino la ubicación en pixeles de donde debo colocar la impresión.

Espero me entiendas y te sirva

[Paoti]

jejejej, sitrico, mi no entender.



¿la regla de ters apra que la usas!!!!?


y con esto, esto lo guardas en un archivo y en el evento before printing vas llamando a las cordenadas y los campos.


me imagino que la solución es para usar el reporte, no importando en que impresora, y volviandoa calcular las nuevas caidas, haciendo prueba y error en el cliente.

[[sitrico]]

Te explico algo mejor:

La hoja carta mide: 8,5x11 pulgadas = 21,59x27,94centimetros.

Al crear un reporte pones los márgnes a 1 cm por cada lado.

Te queda un área de impresión de:

21,59-1-1= 19,59 (ancho)
27,94-1-1=25,94 (alto)

Te habia puesto una complicada explicación de las bandas pero probando encontre lo sigiente:

Al asignar el tamaño del papel del reporte el QReport ajusta las propiedades Width y Height (del papel) al tamaño en puntos, así que puedes usar esos valores como base para tus calculos. por ejem:

Código Delphi [-]
// OnBeforePrint
// Page = Letter, portrait
PageWidthPx := Report.Width; //816
PageWidthCm := Report.Page.Width / 10; // 215,4/ 10 = 21,54 (estaba en milimetros)
PageHeightPx := Report.Height; //1056
PageHeightCm := Report.Page.Length / 10; // 279,4 / 10 = 27,94

Entoneces puedes decir que 21,59 cm = 816 px y 27,94 = 1056px
y puedes calcular lo siguiente:

Si quieres imprimir a 5,5cm del borde izquierdo y 3,7 desde el superior aplicas:

Código Delphi [-]
// aqui puedes incluir un factor de ajuste (ver ultima nota)
PosX := ((PageWidthPx * (5,5 - 1)) div PageWidthCm) + FactorAjusteH; //  (-1) por el margen  
PosY := ((PageHeigthPx * (3,7 - 1)) div PageHeightCm) + FactorAjusteV ;
WidthT := (PageWidthPx * (WidthCampo)) div PageWidthCm;

Y así puedes determinas la posición y el ancho en pixeles de cualquier objeto a imprimir.

Para implementarlo luego defines un archivo con las posiciones x,y y ancho de cada campo y usas un loop en onBeforePrint, para colocar los objetos.

También debes considerar que el punto indicado apunta a la esquina superior izquierda del texto por lo que debes hacer los ajustes correspondientes según la alineación.

Si usas varias bandas entonces debes calcular la posición vertical de la banda sumando los "altos" de las bandas impresas.

Un consejo: Calcula los valores de ancho y alto (WidthP y HeithP) en tiempo de ejecución justo antes de imprimir el reporte ya que pueden variar según la impresora seleccionada.

Otro dato: Es posible que debas incluir un factor de "ajuste" de la esquina superior izquieda del papel (sumar ó restar n pixeles) a cada objeto a imprimir ya que posición de la esquina superior izquierda del area de impresión varia siempre de una impresora a otra (especialmente en las de matriz de puntos)

Espero haya quedado más claro.

[courtois]

podrias usar ReportBuilder o FastReports ambos incluyen componentes para edicion visual de los reportes