Obtener el área de impresión

[tiel]

He estado haciendo reportes y me topé con los componentes del QuickReport, pero al parecer se le presentó una tarea muy díficil, que no supe resolver, y es convertir varios datos de una columna en varias columnas, porque en esta base de datos se están haciendo modificaciones dinámicas constantemente. Así que ni con SQL lo logré, entonces opté por imprimir directamente en la impresora con el Printer.Canvas, ya logré hacer muchas cosas que parecían imposibles con los componentes QuickReport.

Pero me he topado con un problemón y quisiera ver si me pueden ayudar, ¿alguien sabe como obtener el área de impresión de la impresora?

Es que necesito saberlo porque cada que se va a exceder el límite vertical entonces se crea una nueva página y han funcionado bien en mi impresora unos límites que usé al tanteo, pero no sé si vaya a funcionar igual con otras impresoras de otras marcas y modelos.

[delphi.com.ar]

Printer.PageHeight & Printer.PageWidth te dan las dimensiones según el tipo de papel seleccionado.

Te recomiendo leer este hilo: http://www.clubdelphi.com/foros/show...AQueryPrint%2A

[tiel]

Empezado por delphi.com.ar

Printer.PageHeight & Printer.PageWidth te dan las dimensiones según el tipo de papel seleccionado.

Te recomiendo leer este hilo: http://www.clubdelphi.com/foros/show...AQueryPrint%2A

Ya he usado esas propiedades antes, pero no sirven, siempre se cortan líneas de texto. No estás mal, esas propiedades te dan las dimensiones de la hoja, pero no son las mismas que los límites de impresión que tiene cada impresora (hardware).

PD: El DBGrid no me sirvió tampoco.

[delphi.com.ar]

Así es!... creí que ese era tu problema. Para obtener el area real de impresión, podes hacerlo mediante la WinApi GetDeviceCaps. Si no me equivoco era con los parámetros PHYSICALWIDTH, PHYSICALHEIGHT, PHYSICALOFFSETX y PHYSICALOFFSETY.

Saludos!

[tiel]

Empezado por delphi.com.ar

Así es!... creí que ese era tu problema. Para obtener el area real de impresión, podes hacerlo mediante la WinApi GetDeviceCaps. Si no me equivoco era con los parámetros PHYSICALWIDTH, PHYSICALHEIGHT, PHYSICALOFFSETX y PHYSICALOFFSETY.

Saludos!

Ya usé la función GetDeviceCaps con casi todas sus opciones, lo saqué todo de la Microsoft SDK, y sólo logré obtener el margen superior y el margen izquierdo, estuve haciendo varias pruebas restando medidas y solo conseguí un aproximado del margen inferior con la operación: Printer.PageHeigth - GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY), que se pasa por unos 20 pixeles con el área de impresión y corta el texto.

Si alguien más supiera como obtener el área de impresión exacta se lo agradecería.