Determina si el puerto LPT1 está preparado.

Sintaxis

     ISPRINTER() –> lPreparado

Devuelve

ISPRINTER() devuelve verdadero (.T.) si el puerto LPT1 está preparado; en caso contrario devuelve falso (.F.).

Descripción

ISPRINTER() es una función de impresora que determina si el puerto paralelo LPT1 está en línea y preparado para imprimir. ISPRINTER() es una función dependiente del hardware, por lo que sólo actúa en sistemas cuyo BIOS es compatible con IBM.

Puede comprobar ISPRINTER() para asegurarse de que la impresora está lista antes de empezar a imprimir. No obstante, si se produce un error durante la impresión, se genera un error de ejecución.

Ejemplos

     ¦  Este ejemplo comprueba si está preparado el puerto paralelo, realizando hasta 25 reintentos. Si el puerto paralelo está preparado, se inicia la operación de impresión:

        LOCAL nCuenta := 0, nVeces := 25, lPrep

        //

        DO WHILE nCuenta++ <= nVeces.AND. !(lPrep := ;

              ISPRINTER())

        ENDDO

        //

        IF lPrep

           REPORT FORM Ventas TO PRINTER

        ELSE

           ? “La impresora no está preparada…”

           BREAK

        ENDIF

 Ficheros:  La biblioteca asociada es EXTEND.LIB, el módulo fuente es SOURCE\SAMPLE\EXAMPLEA.ASM.