在你的数据表中添加一个字段，该字段作为数据报表分页的依据。在你的调用报表的表单中添加一个文本框，该文本框中输入的数据作为你分组的依据，在打印的Click代码中添加如果代码：
nfy=ThisForm.Text1.Value    &&该值为你在文本框中输入你想分页的数字，可以是10，也可以是15，或者20
GO TOP
j=1
DO WHIL !EOF()
 I=1
 DO WHIL !EOF() AND I<=NFY  &&
  REPL FYYJ WITH I          &&假设你在数据表中添加分页依据的字段是FYYJ,这个字段名是什么由你本人自定
 SKIP
 I=I+1                      &&每次递增1，满足分页条件就退出
 ENDDO
 j=j+1                      &&另外起一页
ENDDO

如果是在程序或方法中，可以用EJECT命令分页。
EJECT 要求打印机走纸到下一页的顶端。如果系统内存变量 _PADVANCE 设置为 FORMFEED，则 EJECT 发送一个分页符到打印机。如果 _PADVANCE 设置为 LINEFEEDS，则 EJECT 将不断发送换行符，直至打印机走纸到下一页的顶端。

EJECT 把 PCOL( ) 和 PROW( ) 重置为打印机打印头当前的行、列位置值，但不影响系统内存变量 _PAGENO 或 _PLINENO 。

记号了。也学习了。看来用控制打印记录数是不能达到排版要求的，对于大量数据的打印不可能一页一页的输记录号的。这个有的麻烦。不知怎样搞。真是让人那什么，最近有个游戏解说员说了一个很早就出现的词‘蛋疼’。

[ 本帖最后由 qshuju 于 2013-1-23 07:27 编辑 ]