Verifica se impressora está disponível.
Sintaxe
ISPRINTER( [ xPorta ], [ lSeta ], [ nWhere ], [ @nErrorCode ] ) –> Lógico
| Argumento | Obrigat. | Tipo | Descrição |
| xPorta | Não | C ou N | Informar a porta que desejamos verificar “LPT1” (padrão), “LPT2” , “COM1”, “COM2” ou 1=LPT1, 2=LPT2. |
| lSeta | Não | L | Não utilizado |
| nWhere | Não | N | 1= testa impressora no Remote (default), 2= testa impressora no Server. |
| nErrorCode | Não | N | Retorna o código de erro da impressora |
Retorno | Descrição |
.T. | Impressora ativa |
.F. | Impressora inativa |
Descrição
ISPRINTER( ) testa a disponibilidade de impressoras conectadas fisicamente à máquina onde está sendo executado o Server ou Remote Protheus. Dependendo do sistema operacional, o teste pode ser um Assembler em Windows 95 ou 98, ou a criação de um arquivo em Windows NT,2000 e Unix.
Nos casos onde o teste é efetuado por criação de arquivo, o nErrorCode não será informado.
Exemplo
If !isPrinter(1,,1,@nErr) // testa se impressora esta conectada na lpt1 no Remote.
MsgBox(“Impressora não conectada! Erro: “+Str(nErr))
endif