EJECT 命 令

向打印机发送换页符 .

语 法

EJECT

说 明

EJECT 命令要求打印机走纸到下一页的顶端 如果系统变量 _PADVANCE 设置为FORMFEED 则 EJECT 命令向打印机发送换页符 如果 _PADVANCE 设置为LINEFEEDS 则 EJECT 命令将不断发送换行符 直至打印机走纸到下一页的顶端EJECT 命令把 PCOL 和 PROW 重置为打印机打印头当前的行 列位置值 但

并不影响系统变量 _PAGENO 或 _PLINENO 的值

示 例

下面的示例打印了 customer 表的 company 和 phone 字段 请确认本示例中有打印机相连并打开 打印的行数超过 62 时会走纸

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'data\testdata') USE customer && 打开 customer 表

SET DEVICE TO PRINTER SET PRINT ON

DO WHILE NOT EOF( )

@ PROW( )+1,10 SAY 'Company: ' + company @ PROW( )+1,10 SAY 'Phone: '

• phone

@ PROW( )+1,1 SAY '' IF PROW > 62

EJECT

ENDIF SKIP

ENDDO

SET PRINT OFF

SET DEVICE TO SCREEN

请 参 阅

EJECT PAGE , ON PAGE , SET DEVICE , SET PRINTER , PCOL( ) , PROW( ) , 系

统变量概览