急啊~~！！！！我语句这样写的，为什么不能实现连续打印报表呢？

就比方说是个人资料登记表吧，每个人填一张表(也就是一页纸)，也就是每个人的信息就是一条记录，填完后，要把这样的每个人的一张表(也是一页纸)一页页的连续打印出来，每一张表就是一条记录，怎么实现啊
我语句这样写的procedure Tprint2.QR2AfterPrint(Sender: TObject);
begin
While not bj.Table1.Eof do
begin
bj.Table1.next;
QR2.NewPage;
end;
end;