Посылает на принтер код перевода страницы.

Синтаксис:

EJECT

Комментарии:
Команда EJECT задает переход на принтере к началу следующей страницы. EJECT посылает на принтер код перевода страницы, если значение системной переменной памяти _PADVANCE равно FORMFEED. Если значение _PADVANCE равно LINEFEEDS, EJECT выдает коды перевода строки, которые задают продвижение к началу очередной страницы.
Команда EJECT устанавливает значения PCOL( ) и PROW( ) согласно текущей позиции печатающей головки принтера по столбцам и строкам, но не влияет на значения системных переменных _PAGENO и _PLINENO.

Пример:

* В следующем примере программа выводит на печать поля 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