设定一个记录的行数的变量,当这个行数达倒你要求的行数时候,清为0重新计数,Printer.newpage,重新打印表格头。delphi5开发人员自然有个很好的例子,你可以参照改一下。