EJECT
 Avança a cabeça da impressora para o começo da página
------------------------------------------------------------------------------

 Sintaxe

     EJECT

 Descriçao

     O comando EJECT envia um caractere de form feed (ASCII 12) à impressora
     e ajusta os valores das funçoes PCOL() e PROW() para zero.  Se você
     especificar uma linha e coluna da impressora menores que a última
     posiçao dada por um comando EJECT ou uma funçao SETPRC(), o Clipper
     automaticamente realiza um EJECT e reconfigura os valores internos das
     funçoes PROW() e PCOL() .  Por causa disso, a sua lógica de impressao
     deve proceder sequencialmente da esquerda para a direita e para o fim
     da página.  Caso você necessitar reconfigurar linha e coluna da
     impressora para zero sem mudança de página, use a funçao SETPRC().

 Exemplos

     Este exemplo imprime um relatório em forma de listagem simples e usa o
     comando EJECT para avançar para uma nova página quando o contador de
     linhas chega ao número máximo de linhas a ser impresso por página:

     LOCAL nLine := 99, nPage := 0
     USE Sales NEW
     SET PRINTER ON
     SET CONSOLE OFF
     DO WHILE !EOF()
        IF nLine > 55
           EJECT
           ? "Pagina " + LTRIM(STR(nPage++, 3))
           ? "Data " + CTOD(DATE())
           ?
           ? "Vendedor ", "Quantia"
           ?
           nLine := 6
        ENDIF
        ? Sales->Salesman, Sales->Amount
        nLine++
        SKIP
     ENDDO
     SET PRINTER OFF
     SET CONSOLE ON
     CLOSE

 Arquivos:  Biblioteca CLIPPER.LIB.
 To download this example - click here.

See Also: SET CONSOLE SET DEVICE SET PRINTER SETPRC()