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

[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.