Reconhecer impressora matricial no Windows 2000

Delphi

28/06/2003

Amigos,
Uso a rotina abaixo p/testara se a impressora MATRICIAL está ligada, que funciona bem em vários ambientes MENOS no Windows2000.
com a impressora ligada ou desligada o sistema informa que está desligada!

Alguem tem outra solução??

1. Teste:
Try
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov vResult,ah;
End;
Except
ShowMessage(´Impressora desligada´);
Result := False;
End;

Result := ( vResult And $80 ) = $80;

Tentei o código abaixo e tb nao funciona:
Try
AssignFile( F , ´LPT1´ );
Rewrite( F ); Except
ShowMessage(´Impressora desligada´);
end;

Desde já agradeço, pois estou num sofoco. Nao consigo implantar os relatorios
J Batista[/b]


João Batista

João Batista

Curtidas 0
POSTAR