ISPRINTER()
 Determina se a LPT1 está pronta
------------------------------------------------------------------------------

 Sintaxe

     ISPRINTER() --> lPronto

 Retorno

     ISPRINTER() retorna verdadeiro (.T.) caso LPT1 esteja pronta; caso
     contrário, retorna falso (.F.).

 Descriçao

     ISPRINTER() é uma funçao de tratamento de impressoras utilizada para
     determinar se a saída paralela (LPT1) está on-line e pronta para
     imprimir.  ISPRINTER() depende do hardware e, portanto, somente
     funciona em sistemas compatíveis com o IBM-BIOS.

     Você pode usar ISPRINTER() para certificar-se de que a impressora está
     pronta antes que você inicie uma operaçao de impressao; contudo, caso
     ocorra um erro durante a operaçao de impressao, é gerado um erro em
     tempo de execuçao.

 Exemplos

     Este exemplo verifica se a saída paralela está pronta com até 25
     tentativas.  Caso a saída paralela esteja pronta, a operaçao de
     impressao tem início:

     LOCAL nCont := 0, nTimes := 25, lReady
     //
     WHILE nCont++ <= nTimes .AND. !(lReady := ISPRINTER())
     ENDDO
     //
     IF lReady
        REPORT FORM Sales TO PRINTER
     ELSE
        ? "Impressora nao esta pronta..."
        BREAK
     ENDIF

 Arquivos:  Biblioteca EXTEND.LIB, fonte EXAMPLEA.ASM.
 To download this example - click here.

See Also: SET DEVICE SET PRINTER