QReport, Impresoras matriciales y Windows XP ( o el bueno, el feo y el malo)

[jlmelida]

Para cada papel, Qreport debe terner definido su nombre y sus dimensiones. Por ejemplo: A4 tiene por dimensiones 210 por 297 mm.

Además a cada papel, le asigna un numero o código que es el que le pasa a la impresora, para que esta lo utilice.

En todo este proceso, estamos asumiendo que la impresora reconoce el tamaño de papel que queremos usar.

Por eso, al principio, construimos un driver de impresora genérico y comprobamos, por medio de Word u otro procesador de texto, que funcionaba, esto es, que nuestra impresora reconocía ese tamaño.

El problema esta en que no conocemos de antemano que codigo tiene ese tamaño de papel.

En la pagina web de qsoft www.qusoft.com, puedes ver a la izquierda una columna con el titulo

DIY Fixes.

Pulsando te aparecen una serie de respuestas a problemas.

Localiza "Adding new paper formats".

Prácticamente te explica todo el proceso.

Debes comenzar por bajarte el programa printercheck. Una vez descomprimido, te aparecerá PRDrive.exe.

Esta utilidad, mediante llamadas al API de Windows te indica el codigo del papel que queremos usar.

De paso, puedes leerte los fuentes y aprenderás mucho sobre el manejo de impresoras, etc. Lo recomiendo.

Para el papel que hemos definido, llamado cheque, en mi impresora matricial y con el driver genérico/solo texto, obtuve el código 123.

Naturalmente, este código variará en función de la impresora, driver y tipo de papel.

Con este dato, ya podemos retocar los fuentes.

Saludos.

[jlmelida]

No hace falta decir, que antes de retocar ningún fuente, debemos hacer unas buenas copias de seguridad por aquello de la Ley de Murphy.

Abrimos Delphi y cargamos el paquete qrpt70.bpl.

Me estoy refiriendo a la versión de Delphi 7.0 y a Qreport Pro 3.6.2.

Debo suponer, que será igual o muy parecido con otras versiones, pero yo no lo he hecho.

Desde el cuadro package, cargamos qr3const.pas

Al principio de la unidad podemos encontrar:

Código PHP:

resourcestring
  SqrPaperSize0 = 'Default size';
  SqrPaperSize1 = 'Letter 8 1/2 x 11 in';
  SqrPaperSize2 = 'Letter Small 8 1/2 x 11 in';
  SqrPaperSize3 = 'Tabloid 11 x 17 in';
  SqrPaperSize4 = 'Ledger 17 x 11 in';
  SqrPaperSize5 = 'Legal 8 1/2 x 14 in';
  SqrPaperSize6 = 'Statement 5 1/2 x 8 1/2 in';
  SqrPaperSize7 = 'Executive7 1/2 x 10 in';
  SqrPaperSize8 = 'A3 297 x 420 mm';
  SqrPaperSize9 = 'A4 210 x 297 mm';
  SqrPaperSize10 = 'A4 Small 210 x 297 mm';
  SqrPaperSize11 = 'A5 148 x 210 mm';
  SqrPaperSize12 = 'B4 250 x 354 mm';
  SqrPaperSize13 = 'B5 182 x 257 mm';
  SqrPaperSize14 = 'Folio 8 1/2 x 13 in';
  SqrPaperSize15 = 'Quarto 215 x 275 mm';
  SqrPaperSize16 = '10x14 in';
  SqrPaperSize17 = '11x17 in';
  SqrPaperSize18 = 'Note 8 1/2 x 11 in';
  SqrPaperSize19 = 'Envelope #9 3 7/8 x 8 7/8';
  SqrPaperSize20 = 'Envelope #10 4 1/8 x 9 1/2';
  SqrPaperSize21 = 'Envelope #11 4 1/2 x 10 3/8';
  SqrPaperSize22 = 'Envelope #12 4 \276 x 11';
  SqrPaperSize23 = 'Envelope #14 4 \276 x 11';
  SqrPaperSize24 = 'C size sheet';
  SqrPaperSize25 = 'D size sheet';
  SqrPaperSize26 = 'E size sheet';
  SqrPaperSize27 = 'Custom Size';
  SqrPaperSize28 = 'Cheque';     // Esto es lo que añadimos. 


Por supuesto que en la unidad hay muchisimas mas constantes. Si queremos, podemos traducirlas a nuestro idioma, pero lo fundamental es que hemos añadido una nueva etiqueta para nuestro papel.

[jlmelida]

Mas complejos son los cambios a realizar en la unidad QRPrntr.pas, pero también secillos.

Código PHP:

type
  { All the known paper sizes }
  TQRPaperSize = (Default,
                  Letter,
                  LetterSmall,
                  Tabloid,
                  Ledger,
                  Legal,
                  Statement,
                  Executive,
                  A3,
                  A4,
                  A4Small,
                  A5,
                  B4,
                  B5,
                  Folio,
                  Quarto,
                  qr10X14,
                  qr11X17,
                  Note,
                  Env9,
                  Env10,
                  Env11,
                  Env12,
                  Env14,
                  CSheet,
                  DSheet,
                  ESheet,
                  Cheque, // Este es el nuevo tipo definido
                  Custom); 


Posteriormente definimos esta constante:

Código PHP:

const
.
.
dmpaper_cheque = 123; // Nuestro codigo para nuestro papel 


Ahora definimos las dimensiones:

Código PHP:

 
   cQRPaperSizeMetrics : array[Letter..Cheque, 0..1] of extended =
      ((215.9, 279.4), { Letter }
       (215.9, 279.4), { Letter small }
       (279.4, 431.8), { Tabloid }
       (431.8, 279.4), { Ledger }
       (215.9, 355.6), { Legal }
       (139.7, 215.9), { Statement }
       (190.5, 254.0), { Executive }
       (297.0, 420.0), { A3 }
       (210.0, 297.0), { A4 }
       (210.0, 297.0), { A4 small }
       (148.0, 210.0), { A5 }
       (250.0, 354.0), { B4 }
       (182.0, 257.0), { B5 }
       (215.9, 330.2), { Folio }
       (215.0, 275.0), { Quarto }
       (254.0, 355.6), { 10X14 }
       (279.4, 431.8), { 11X17 }
       (215.9, 279.0), { Note }
       (98.43, 225.4), { Envelope #9 }
       (104.8, 241.3), { Envelope #10 }
       (114.3, 263.5), { Envelope #11 }
       (101.6, 279.4), { Envelope #12 - might be wrong !! }
       (127.0, 292.1), { Envelope #14 }
       (100.0, 100.0), { CSheet }
       (100.0, 100.0), { DSheet }
       (100.0, 100.0), { ESheet }
       (175.0,  76.2)  { Cheque } // Esta es nuestra definición
        ); 


Por último definimos el array para trasladar los tamaños del papel al codigo de la impresora

Código PHP:

   cQRPaperTranslate : array[Default..Custom] of integer =
       (0,
       dmpaper_Letter,
       dmpaper_LetterSmall,
       dmpaper_Tabloid,
       dmpaper_Ledger,
       dmpaper_Legal,
       dmpaper_Statement,
       dmpaper_Executive,
       dmpaper_A3,
       dmpaper_A4,
       dmpaper_A4Small,
       dmpaper_A5,
       dmpaper_B4,
       dmpaper_B5,
       dmpaper_Folio,
       dmpaper_Quarto,
       dmpaper_10X14,
       dmpaper_11X17,
       dmpaper_Note,
       dmpaper_Env_9,
       dmpaper_Env_10,
       dmpaper_Env_11,
       dmpaper_Env_12,
       dmpaper_Env_14,
       dmpaper_CSheet,
       dmpaper_DSheet,
       dmpaper_ESheet,
       dmpaper_cheque, { obtenemos este valor, mirando en el codigo de la impresora } 
       $100); 


Ya solo nos falta retocar la función :

Código PHP:

function QRPaperName(Size : TQRPaperSize) : string;
const
  Names : array[Default..Custom] of string = (
   SqrPaperSize0, SqrPaperSize1, SqrPaperSize2, SqrPaperSize3,
   SqrPaperSize4, SqrPaperSize5, SqrPaperSize6, SqrPaperSize7,
   SqrPaperSize8, SqrPaperSize9, SqrPaperSize10, SqrPaperSize11,
   SqrPaperSize12, SqrPaperSize13, SqrPaperSize14, SqrPaperSize15,
   SqrPaperSize16, SqrPaperSize17, SqrPaperSize18, SqrPaperSize19,
   SqrPaperSize20, SqrPaperSize21, SqrPaperSize22, SqrPaperSize23,
   SqrPaperSize24, SqrPaperSize25, SqrPaperSize26, SqrPaperSize27, SqrPaperSize28 { Esto eslo nuevo} );
 
begin
  Result := Names[Size];
end; 


Recompilamos la libreria y la instalamos como de costumbre.

[jlmelida]

Si todo el trabajo se ha hecho bién, al diseñar un informe, usando la clase TQuickRep, en el inspector de objetos, en el apartado Page, podremos seleccionar el tamaño de papel definido por nosotros ( cheque en nuestro ejemplo).


Deberá tener las dimensiones definidas a nuestro gusto y además, un código que será entendido por nuestra impresora matricial.

Con ello, ya podremos usar tamaños de papel definidos por el usuario.

Saludos.

[vic_ia]

mi más sincera felicitación...!!!

una de las explicaciones mas simples y entendibles de las que he ledido aqui y en otros foros y sitios de programacion...

siempre he lidiado con escribir directamente al puerto por que no le hallaba por donde atacar el problema...

he llegado apenas a la definición del papel (excepcional por lo sencillo), y espero, el fin de semana completar los pasos y tener asi, la opcion de mejorar mis viejos y proximos proyectos...

gracias por la ayuda....

[Mass]

Hola que tal, soy Jorge y soy nuevo en este foro, mas bien nunca he estado en uno, soy mexicano y tengo un problema bastante serio.

Tengo un sistema que diario imprime hasta 1000 folios a 1/3 de carta y lo hacia bastante bien con QR y con la impresora en tamaño del papel CUSTOM, hasta que por necesidades de la empresa actualizan equipos y estos traen instalados XP, ahí mi problema, no puedo personalizar el tamaño del papel, me encontre con tu articulo y me parecio bastante logico y muy bueno, pero hice todo hasta que llegue a probarlo con word y no me funciono, configuro la pagina con un formato llamado ABONO que mide 1/2 carta y si me muestra ese tamaño en la pantalla, pero al momoemtnode mandar imprimir se salta hacia la otra hoja, no se detiene al finalizar el documento. saludos espero y puedas ayudarme.

[pijo]

Yo también me he encontrado a veces con el problema de que con el método que propones no lo he podido solucionar. Entonces la solución a pasado por retocar la configuración del tamaño del papel en la propia impresora a traves de los menús extraños que traen ellas mismas. Si tienes el tamaño predefinido en la impresora bien, si no, no hay solución...

[jlmelida]

Empezado por Mass

Hola que tal, soy Jorge y soy nuevo en este foro, mas bien nunca he estado en uno, soy mexicano y tengo un problema bastante serio.

Tengo un sistema que diario imprime hasta 1000 folios a 1/3 de carta y lo hacia bastante bien con QR y con la impresora en tamaño del papel CUSTOM, hasta que por necesidades de la empresa actualizan equipos y estos traen instalados XP, ahí mi problema, no puedo personalizar el tamaño del papel, me encontre con tu articulo y me parecio bastante logico y muy bueno, pero hice todo hasta que llegue a probarlo con word y no me funciono, configuro la pagina con un formato llamado ABONO que mide 1/2 carta y si me muestra ese tamaño en la pantalla, pero al momoemtnode mandar imprimir se salta hacia la otra hoja, no se detiene al finalizar el documento. saludos espero y puedas ayudarme.

Jorge: Disculpa la tardanza en contestar, pero como ya advertí dispongo de poco tiempo y suelo entrar el el foro los fines de semana. Hoy he leido tu mensaje.

Antes de seguir, deseo animarte porque lo que se expuse en este topic es cierto. Se puede con QReport y windows XP imprimir en el formato que desees. Por ello, debes estar haciendo algo mal y hay que descubrirlo.

Si Word no para y sigue imprimiendo debes tener mal configurada la impresora.
Pulsa Inicio, panel de control, Impresoras y otro hardware. Remarca la impresora genérica y con el boton derecho del mouse, vete a propiedades. Preferencias de impresión y en la pestaña papel/calidad, en origen del papel puedes seleccionar el comportamiento de la impresora:
Alimentación continua:sin pausa o bien
Alimentación continua:con pausa.

Prueba con ello hasta conseguir lo que desees.
Si no se soluciona el problema, repasa el metodo. Tiene que salir bién.
Si es otro el problema, comunicalo de nuevo. Pero insisto, no es una teoría mas o menos linda. Tenemos varias aplicaciones y todas funcionan correctamente con diversos tamaños de papel.

saludos

[JODELSA]

Eres la persona que mas domina este tema y mira que he luchado mucho con este problema hasta el punto que me siente desesperado.

Yo pude crear la impresora y el formulario con las medida que necesito, tambien lo probé en Word y todo funiciono perfecto. lo que no he podido hacer es retocar los fuentes de QReport.

Si no es mucha molestia me podria explicar mejor como cargo el paquete
qrpt70.bpl

Nota: Uso delphi 7.0 y la version de Qreport que viene con este.

Empezado por jlmelida

Si todo el trabajo se ha hecho bién, al diseñar un informe, usando la clase TQuickRep, en el inspector de objetos, en el apartado Page, podremos seleccionar el tamaño de papel definido por nosotros ( cheque en nuestro ejemplo).


Deberá tener las dimensiones definidas a nuestro gusto y además, un código que será entendido por nuestra impresora matricial.

Con ello, ya podremos usar tamaños de papel definidos por el usuario.

Saludos.

[jlmelida]

Hola JODELSA:

Perdona el retraso en contestar, pero es que como ya dije tengo muy poco tiempo y mis entradas al foro suceden de tarde en tarde.

Antes de seguir, recuerda que es necesario que tengas la versión profesional que es la que trae los fuentes.
Normalmente los tendras en un subdirectorio de Delphi7. El nombre por defecto es quickrpt.
Cargas Delphi, y ante de nada, borras todo lo que tengas. ( Menu File y luego Close All). Así se queda "limpio" el Ide de Delphi. Luego, otra vez con el mismo menu : File, Open y te dirijes al directorio quickrpt. Veras que los paquetes ( Packages) aparecen con iconos distintos. Para la version de Qreport 4 son QR4RunD7 y QR4DesignD7. Para la version 3 son qrpt70.bpl y dclqr70.bpl.

Si remarcas el package qrpt70 ( y tienes los fuentes ) te aparecerá en una ventana Package qrpt70, las unidades y
las que requiere. El aspecto es el clásico de un TreeView o arbol como el del explorador de windows.

Otra vez doble click sobre el fuente que quieras retocar y despues de escribir el nuevo código, terminas dandole al menú install.

Tu nuevo paquete retocado, habrá sustituido al antiguo. Acuerdate de sacar unas buenas copias de seguridad antes de empezar.

Cualquier duda que tengas, me la comunicas y prometo contestarla antes de fin de año.

Saludos.

[Erik_Magnus]

Tengo con un cliente una impresora Epson LX-870 (el 70 no estoy muy seguro, pero no creo que se modifique mucho de una version de impresora a otra) , para las facturar uso un formato personalizado , en Windows 95-98 no tengo ninguna clase de problema, todo jala bien, en la maquina con XP defino el papel personalizado, lo pongo a que lo use en todas partes donde sale otro papel y no jala, el reporte sigue saliendo como tamaño carta (manda a imprimir un espacio en blanco despues de la impresion, y con esto ya no queda cerca del corte de la hoja) , yo uso en el quickreport el tamaño de papel CUSTOM , el tamaño del papel que voy a usar lo leo de un archivo INI , tengo Delphi 4 y la version 3.0.5 Standar de Quickreport (si vivo en el pasado lo se ) por lo que no tengo las fuentes para hacer los cambios que mencionan mas arriba, asi que mi pregunta es ¿existe alguna forma de hacerlo que funcione sin modificar las fuentes de quickreport?

[ldmar3]

oye nesesito una pequeña ayuda mira es que no se como imprimir en delphi tan solo serian unos campos en donde podria desplazarme facilmente para ingresar datos y luego imprimirlos no se si pasarlos a un dbgrid primeramente y despues imprimirlo pues ya que como me di cuenta desde el qreport se puede imprimir me darias una idea o me ayudarias por favor ya que vi que tu si te la sabes y pues seria chido que me ayudaras.. gracias



estare en contacto

[[Lepe]]

Hola, Bienvenido a ClubDelphi, como a todos, te recomiendo leas la guia de estilo, te ayudará a redactar tus preguntas.

-En delphi, File New -> Other -> QReport
-Necesitas un TQuery (TIBQuery, TMdoQuery, etc) para extraer los datos.
-En el quickreport, tienes su propiedad Bands, pon a true en el inspector de objetos el HasDetail.
- Enlaza el QuickReport con la query.
-Añade varios qrDBText, configura el dataset y el FieldName
- boton derecho y pulsa sobre Preview.

Podrás ver los resultados.

Si tienes dudas, abre un hilo nuevo, ya que aquí no va muy bien este tema.

Saludos

[ldmar3]

oye no me funciono ese procedimiento porque no tengo tquery o los otros objetos que me señalaste tal vezs porque tengo deplhi 5.0 o nada que ver
espero respuesta

[[Lepe]]

Como ya dije, tu duda no tiene nada que ver con impresoras matriciales, así que continuamos aquí. Por favor, responde en ese hilo.

Saludos