delphi中动态生分成的 quick report如何分页呢？

Question

我在程序中动态生成报表后，由于打印的东西过多在预览时就会显示不全，而且即使分页第二页也没有内容、
我希望在预览时就能有分页的效果，而不是只有打印时才有。怎么样才能做到呢？折腾一天了，很着急，请各位帮忙。
谢谢。

Answer 1

quick report 有些鸡肋，费这功夫没意义，直接用rm，fr都可以轻松搞定

Answer 2

使用fastreport分頁...
1.Report Head onBeforePrint
    gpcount:=0;        //紀錄群組編號2.Group Head onBeforePrint
    gpcount:=gpcount+1; //群組編號+1 代表目前的群組為第幾個群組
    gP:=0;        //目前群組的頁次3.PageFooter 頁尾放上一個MEMO 並在MEMO的OnBeforePrint寫
    GP:=GP+1; //計算目前群組的頁次
    iF NOT FINALPASS THEN
    ARR[gpcount]:=GP //紀錄該群組編號的總頁次
    ELSE
    AP:=ARR[gpcount]; //將總頁次放在AP這個變數只要在這個MEMO.MEMO屬性填入 [gp]/[ap]