各位大大:
小弟最近設計一個報表....使用group的band將detail包起來...
user希望同一個group的資料若無法在同一頁印完,就移往下一頁印....
我本來使用定位的方式,來控制group的換頁...但後來發現不可行...
因為每一個group的資料筆數是不固定的,所以很難保證資料都會依照我的需求換頁,
所以麻煩各位先進幫小弟想想辦法....謝謝!

以下是我的方法....


[code delphi]
procedure TSFC120R1.QRGroup1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
inherited;
if QuickRep1.CurrentY > 2200 then
begin
QuickRep1.NewPage;
end;
end;
[/code]

先在暫存檔上把每個GROUP的資料依每頁可印的筆數補成相同筆數，不足的補空白，然後勾取 QRGRoup1.ForceNewPage 就會自動分頁了