Código
No caso de configurar a impressão na LPT1 se usa o seguinte comando:
"AssignFile(Imp, 'LPT1');"
porém para a porta USB se vc usar o comando:
"AssignFile(Imp, 'USB001');"
não vai resolver, então vc deve fazer o seguinte:
no pronpt do dos dever digitar o seguinte comando:
"NET USE LPT1 \NOME COMPUTADORNOME IMPRESSORA COMPARTILHADA /YES" lembrando que a impressora deve estar compartilhada na rede mesmo sendo do seu próprio computador.
Desta forma no delphi vc deve deixar o comando:
"AssignFile(Imp, 'LPT1');"
Se vc já está usando a porta LPT1 para outra impressora é só trocar a porta LPT1 para LPT2.
Espero ter ajudado.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009