你应该去看看以前的问题。具体描述如下：
如果用的是Delphi自带的报表控件，则：
首先设置一个Row变量（integer）
在PageHeaderBand的OnBeforePrinter事件中
令Row为1，
然后
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if not QuickRep1.dataSet.bof then
row := row + 1;
if row > 30 then
QuickRep1.endpage;
end;
