Reconhecer impressora matricial no Windows 2000
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]
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
Curtidas 0