试试以下方法：
unit Unit2;
... ...
var
RowPerPage,PrintedRows:Integer;
implementation
... ...
procedure TForm2.ColumnHeaderBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
RowPerPage:=2;
PrintedRows:=0;
end;
procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
PrintedRows:=PrintedRows+1;
if PrintedRows=RowPerPage then
Form2.QuickRep1.EndPage;
end;
