Indica o status de uma determinada porta de impressão.
Sintaxe
IsPrinter2( < cString >, [ lValue ], [ lValue ] )
Parâmetros
Nome
Tipo
Descrição
Obrigatório
Referência
cString
caractere
Indica a porta de impressão.
X
lValue
lógico
Não utilizado. Parâmetro de compatibilidade.
lValue
numérico
Indica o direcionamento de impressão. Sendo: 1= PRT_CLIENT (Smart Client) E 2=PRT_SERVER (Application Server). Caso não seja informado, o valor padrão é PRT_CLIENT.
Retorno
Nome
Tipo
Descrição
lRet
lógico
Retorna verdadeiro (.T.), se a porta de impressão estiver OK; caso contrário, falso (.F.).
Limites de portas: até a versão 20.3.0.x o Application Server tem o limite de uso das portas LPT1 a LPT6 e COM1 a COM6. A partir da versão 20.3.1.x os limites são LPT1 a LPT9 e COM1 a COM9.
Exemplos
user function Example()
Local cPort := "LPT1"
xRet := IsPrinter2(cPort,, PRT_SERVER)
If xRet != .T.
Conout( "Printer port " + cPort + " Fail !" )
Else
Conout( "Printer port " + cPort + " Fail !" )
EndIf
return