试试这个：
CLOSE TABLES ALL
USE tt
SET DEVICE TO PRINTER
SET PRINT ON
GO TOP
k=0
DO WHILE NOT EOF( )

    IF k=40
        EJECT
        k=0
    ENDIF
    @ PROW(),0 SAY tt.成绩表单
    k=k+1
    SKIP
ENDDO
EJECT    &&最后一页不满40个记录，多加加一个走纸命令，让最后一页走完。
SET PRINT OFF
SET DEVICE TO SCREEN
应该是打印了四十行时就分页。

[ 本帖最后由 月沐庭轩 于 2012-11-15 23:14 编辑 ]

其实, 并不是非要用eject~  换页时, 只需将行号改为起始行号, 也可达到换页目的~  例:

     

@ 3,0 say " >>> 打单中...   起讫页码: &lspgs →&lspge"
     set prin on
     set devi to prin
     jgrow =iif(rowpp=40, 1.15,1.4)
     jgleft=4
     scan
        if mqh+"期"$ztxt
           set prin font "黑体",10
           @ 2, 4 say trim(ztxt)  && 借此达到换页~
           loop
        endif
        set prin font "黑体",11
        @ prow()+jgrow,jgleft say trim(ztxt)
     endscan
     set devi to scre
     set prin off

我用的是WIN8操作系统，不知这该怎么让它从第二页的起始位置开始打印？希望能得到您的指点。

非常感谢！我试试~~

因为针式打印机不能退行打印，只要你指定的打印行小于打印机当前页面的当前行，打印机就会换到下页继续打印。也就是说，打印完本页的页尾之后，只要返回打印页标题的内容，而在页标题中指定绝对行号而不是相对行号，就可以实现换页。最后打印结束时再发一个换页命令。

以前在UCDOS时弄过，现在不存在这问题

楼主这段代码的问题出在纸张定位和走纸不准，先是每页必须从新的起点开始定位纸张，另外，满40条记录就得走纸而重新定位纸张，所以必须要有两层循环才行，如果解决了这两点，就解决了问题所在。楼主试试下面这段代码：
CLOSE TABLES ALL
USE tt
SET DEVICE TO PRINTER
SET PRINTER ON
GO TOP      
DO WHILE NOT EOF( )
    k=0
   DO WHILE NOT EOF( ) AND k<=40  &&如果记录大于40或者已经到数据库尾时就走纸换页
      @ Prow(),0 SAY tt.成绩表单  &&记录满40时，重新定位纸张
      k=k+1
      SKIP
    ENDDO &&这是内层循环
      EJECT  
   ENDDO
SET PRINTER off
SET DEVICE TO SCREEN

EJECT 好象要跟纸张选择有关，选对了才能走正确。
DOS的要看打印机说明书，???...格式码....

如果WINDOWS系统，直接用报表就好了。

如果一定要用上述的语句，建议在最后才用EJECT
做个测试：
FOR i=1 TO 100
  ?i
ENDFOR
EJECT

如果1-40是你的打印区域，40-45应该是空白，41就是下页的1位置。
即打40行，跳5行。程序改为：
CLOSE TABLES ALL
USE tt
SET DEVICE TO PRINTER
SET PRINT ON
GO TOP
k=1
DO WHILE NOT EOF( )
    @ PROW(),0 SAY tt.成绩表单
    IF K%40 && 到了页尾，打印页间的空行
        *---如果位置还有些大半行，或小半行
        *---可以在这位置加 ???字体 (增大或减少一号字体)
        FOR i=1 to 5
          ?
        NEXT
        *---??? 恢复原来的字体
    ENDIF

    SKIP
    k=k+1
ENDDO

EJECT    &&最后一页不满40个记录，多加加一个走纸命令，让最后一页走完。
SET PRINT OFF
SET DEVICE TO SCREEN