eject 命令示例

在下面的示例中，要打印 customer 表中 company 和 phone 两个字段。为运行此示例，请确保打印机已联好，并已打开电源。 每当打印的行数超过 62 行时，将自动换页。

close databases
open database (home( ) + 'samples\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