help ! about quickreport

Question

关于quickreport ,怎么动态设置页面的papersize 属性?怎么找不到对应的枚举值 ???而且 如果指定页面的papersize = Custom 的话, 报表上就不能放 qrlable 标签上去，因为当预览然后打印的时候，就报什么浮点错误的异常．经过过测试发现放 QrShape 到是可以的．这是为什么？各位都用什么来做动态报表（报表上的项目都是程序生成的）？？

Answer 1

uses QRPRNTR;procedure TForm1.Button1Click(Sender: TObject);
begin
  quickrep1.Page.PaperSize:=Tqrpapersize(LetterSmall);
{
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)
}
end;