Fórum impressora de cod. de barra intermec #267210
02/02/2005
0
Utilizo o delphi 7 e tenho uma rotina para impressão de cod. de barra em uma impressora intermec (easycoder C4)
Duvida:
Qual a melhor maneira de se fazer esta rotina. A impressora esta na porta USB.
Tentei utilizar a mesma rotina que utilizo para a argox, só trocando os comandos para os da intermec e a saida da porta, mas não funcionou.
A rotina que utilio na arox esta abixo (logico que não usei os mesmos comandos, mas não consigo fazer imprimir na porta usb (configurada como com4 na minha maq.
se alguem tiver uma dica eu agradeço.
AssignFile(Arquivox,´COM4´); //na argox utilizo LPT1 no lugar de com4
ReWrite(Arquivox);
Textox := ´N´;
WriteLn(Arquivox,Textox);
Textox := ´A34,220,0,4,1,1,N,´Nome do Produto 0000000000000000000000000´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,249,0,4,1,1,N,´(Nome Cientifico 11111111111111111111111)´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,220,0,4,1,1,N,´A34,277,0,4,1,1,N,´´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,306,0,4,1,1,N,´Lote: 0000000 Fabrica‡Æo: XX/XXXX´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,335,0,4,1,1,N,´ Validade..: XX/XXXX´´;
WriteLn(Arquivox,Textox);
Textox := ´LW1,383,1,1´;
WriteLn(Arquivox,Textox);
Textox := ´P2´;
WriteLn(Arquivox,Textox);
CloseFile(Arquivox);
Duvida:
Qual a melhor maneira de se fazer esta rotina. A impressora esta na porta USB.
Tentei utilizar a mesma rotina que utilizo para a argox, só trocando os comandos para os da intermec e a saida da porta, mas não funcionou.
A rotina que utilio na arox esta abixo (logico que não usei os mesmos comandos, mas não consigo fazer imprimir na porta usb (configurada como com4 na minha maq.
se alguem tiver uma dica eu agradeço.
AssignFile(Arquivox,´COM4´); //na argox utilizo LPT1 no lugar de com4
ReWrite(Arquivox);
Textox := ´N´;
WriteLn(Arquivox,Textox);
Textox := ´A34,220,0,4,1,1,N,´Nome do Produto 0000000000000000000000000´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,249,0,4,1,1,N,´(Nome Cientifico 11111111111111111111111)´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,220,0,4,1,1,N,´A34,277,0,4,1,1,N,´´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,306,0,4,1,1,N,´Lote: 0000000 Fabrica‡Æo: XX/XXXX´´;
WriteLn(Arquivox,Textox);
Textox := ´A34,335,0,4,1,1,N,´ Validade..: XX/XXXX´´;
WriteLn(Arquivox,Textox);
Textox := ´LW1,383,1,1´;
WriteLn(Arquivox,Textox);
Textox := ´P2´;
WriteLn(Arquivox,Textox);
CloseFile(Arquivox);
Mfilho
Curtir tópico
+ 0
Responder
Posts
02/02/2005
Dopi
Portas Seriais não se comportam da mesma maneira que portas Paralela...
Veja o ultimo Post desse tópico:
http://forum.clubedelphi.net/viewtopic.php?t=48327&highlight=impressao+direta
Acho que usar um .BAT com o MODE COM é a abordagem mais simples...
Veja o ultimo Post desse tópico:
http://forum.clubedelphi.net/viewtopic.php?t=48327&highlight=impressao+direta
Acho que usar um .BAT com o MODE COM é a abordagem mais simples...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)