版主:你好,有一个问题向你请教。我在QUICKREPORT中没有找到宽行打印纸(US STD FANFLOD)
这一项,经过查找我发现定义这一项的是在QRPRNTR.PAS 单元中。在这个单元中我加入了
US STD 项目,定义好了纸张框度改动部分如下:
QRPRNTR.PAS中
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,
[red][/red][red]usstd,//此处加入一个[black][/black]
CSheet,
DSheet,
ESheet,
Custom);
cQRPaperSizeMetrics : array[Letter..ESheet, 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 }
[red][/red](279.4, 355.6), {us std fanflod}//此处定义纸张[black][/black]
(100.0, 100.0),
(100.0, 100.0),
(100.0, 100.0));
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,
[red][/red] DMPAPER_FANFOLD_US,//此处加入[black][/black]
dmpaper_CSheet,
dmpaper_DSheet,
dmpaper_ESheet,
$100);
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,
[red][/red]SqrPaperSize24[black][/black], sqrpapersize25, SqrPaperSize26, SqrPaperSize27, SqrPaperSize28);
begin
Result := Names[Size];
end;
QR3CONST 中常量定义改动如下
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';
[red][/red] SqrPaperSize24 = 'US STD FANFOLD';//此处加入[black][/black]
SqrPaperSize25 = 'C size sheet';
SqrPaperSize26 = 'D size sheet';
SqrPaperSize27 = 'E size sheet';
SqrPaperSize28 = 'Custom Size';
。。。。
改动后在LIB 目录中删除了相应的DCU 然后设置打印,在右键菜单的REPORT SETTING 中仍然
看不到新加入的一项,为什么?改动是否正确?
谢谢!!