ISPRINTER()
 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
     cuya BIOS es compatible con IBM.

     Puede utilizar 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 nContador := 0, nVeces := 25, lPrep
        //
        DO WHILE nContador++ <= 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 fichero fuente es SOURCE\SAMPLE\EXAMPLEA.ASM.

 To download this example - click here.

See Also: SET DEVICE SET PRINTER