* В следующем примере программа выводит на печать поля company и
* phone из таблицы customer. (Предварительно проверьте, подсоединен и
* включен ли принтер.) Когда число напечатанных строк превысит 62,
* происходит перевод страницы.

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Opens customer table

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