Compartir a través de

EJECT (Comando)

  • Artículo

Envía a la impresora un avance de página.

EJECT

Observaciones

EJECT hace avanzar la impresora hasta el principio de la página siguiente. EJECT envía un avance de página a la impresora si la variable de memoria del sistema _PADVANCE tiene el valor FORMFEED. Si _PADVANCE tiene el valor LINEFEEDS, EJECT ejecuta avances de línea hasta alcanzar el principio de la página siguiente.

EJECT restablece los valores de PCOL( ) y PROW( ) a la posición actual de fila y columna de la cabeza de impresión de la impresora, pero no influye en el valor de las variables de sistema _PAGENO ni _PLINENO.

Ejemplo

En el ejemplo siguiente se imprimen los campos company y phone de la tabla customer. (Asegúrese de que la impresora está conectada y encendida al realizar este ejemplo). Cuando el número de filas impresas sea mayor de 62, se cambiará de página.

CLOSE DATABASES
OPEN DATABASE (HOME(2) + '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

Vea también

EJECT PAGE | ON PAGE | SET DEVICE | SET PRINTER | PCOL( ) | PROW( ) | Introducción a las variables del sistema