怎么获得每种打印纸的大小？(100分)

如果系统装了打印机，可以先设置纸张类型，然后取其大小。
但这种方法不能获得该打印机不支持的纸张的大小。
而且系统中有可能根本没安装打印机。

当然，把每种纸张的大小查出来写成文件，然后查表的方法
可以，但觉得这种方法太笨，请问还有什么好方法吗？

..

不笨不笨，quickrep源码里面有现成的


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,
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 }
(100.0, 100.0),
(100.0, 100.0),
(100.0, 100.0));

同意Pipi,应该就是这个答案

接受答案了.