帮我看看，下面的该如何实现换页？

Question

我只是在QUICKREP中画线，当画到15条时就换页，怎么实现不了？
用quickrep1.newpage只是实现一页空白页，而不能对现在要打印的东西换页
var
  Form1: TForm1;
  line:integer;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
l:TQRShape;
i:integer;
begin
   line:=1;
   for i:=1 to 1111 do
     begin
       l:=TQRShape.Create(self);
       l.Top:=line;
       l.Left:=2;
       l.Parent:=detailband1;
       l.Width:=400;
       l.Height:=1;
       line:=line+20;
     end;
     quickrep1.Preview;
end;procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
 if line>=300 then
 begin
    line:=1;
    detailband1.ForceNewPage:=true; end
 else
    detailband1.ForceNewPage:=false;
end;procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 if line>=300 then
 begin
    line:=1;
    detailband1.ForceNewPage:=true; end
 else
    detailband1.ForceNewPage:=false;
end;end.