不用控制数据源
只须在你的DetailBand的AfterPrint写如下:
procedure TPrintForm.DetailBandAfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
    if (Rep1.RecordNumber mod 40)=0 then  //40是每页显示的条数,你自己定
         Rep1.NewPage;
end;