我用@...say及EJECT编了一段打印指定行数后换页的程序，但有两个问题困惑我很久，特请教大家：
（1）第一页从顶端开始打印，第二页却不是从顶端开始打印，而是跳了几行，我发现：第一页的最后一行与第二页的首行之间的距离是一定的。如何让第二页也从顶端开始打印呢？EJECT不是让打印机走纸到下一页的顶端吗？
（2）打印完毕后，关闭整个程序后，打印机还会再走一张空白纸？这是为什呢？

这段程序如下：
close tables all
use tt

set device to printer
set print on
go top
      k=0
DO WHILE NOT EOF( )
      @ Prow(),0 SAY tt.成绩表单
      k=k+1
      SKIP
   IF mod(k,40)=0
      EJECT
   ENDIF      
   ENDDO
set print off
set device to screen

[ 本帖最后由 whddg4910 于 2012-11-15 21:37 编辑 ]

DO WHILE NOT EOF( )
      @ Prow(),0 SAY tt.成绩表单
      k=k+1
      SKIP
   IF mod(k,40)=0
      EJECT
   ENDIF      
ENDDO
EJECT    &&最后一页不满40个记录，多加加一个走纸命令，让最后一页走完。
set print off
set device to screen

我试试，先谢谢您！
不过，我那文件最后一页也是有40个记录的，每页的记录数都一样。

不会这样打法  vf5.0？

vfp6.0
第（2）个困惑我好象解决了，将K=K+1,SKIP两行拿到ENDDO之前，再在用SET PRINTER TO 重置打印机，我明天去办公室打印试试，不知这样处理（在最前面再加上SET PRINTER TO）能否解决第（1）个问题。
请专家们不吝赐教！

还应在IF mod(k,40)=0后加上.AND. K<>0

前些年，我就发现打印完成后，最后一页不打印出来，必须加一条Eject才能打印完。
当时还需在汉字平台上运行，我用的是UCDOS汉字系统，这个汉字系统有专门的打印初始化回位命令，保证每页从第一行开始。
不知楼主用的是什么系统？

vfp6.0  怎么不用报表打

@ Prow(),0 SAY tt.成绩表单--------不明白是什么