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.