 |
ActiveDelphi .: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
forst Membro Junior


Registrado: Domingo, 26 de Junho de 2005 Mensagens: 367
|
Enviada: Ter Mar 04, 2008 5:26 pm Assunto: Impressora Argox os 214 [Resolvido] |
|
|
| Moderadores Active-Delphi escreveu: |
Tópico movido por gustavocco.
Motivo: Regras do Fórum.
Respeite as divisões do fórum.
|
Boa tarde,
estou com problemas para configurar uma etiqueta na impressora Argox os 214 para um cliente.
Estou programando pela forma PPLA.
Envio o tamanho como c0157 e após umas 30 etiquetas ela começa a se desalinhar, começa a subir um pouco.. e assim vai...
se eu deixar o tamanho como c0156 após umas 30 etiquetas ela começa a descer..
ta complicado, alguem ja programou nessa impressora e poderia me dar um auxilio?
Valeu,
[]'s _________________ Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos.
Editado pela última vez por forst em Sex Jun 13, 2008 10:59 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
Borland_Linuxer Moderador

Registrado: Terça-Feira, 11 de Outubro de 2005 Mensagens: 4252 Localização: Manaus - Am
|
Enviada: Ter Mar 04, 2008 5:49 pm Assunto: |
|
|
Ola o componente acbr tem um componente para imprimir etiqueta na quase todos os modelos de impressoras de etiquetas.
Dica do criador do componente
| Citação: | amigo, se a sua impressora é PPLA voce pode usar o ACBrETQ, tem um exemplo na pasta Demos, pode testar que ira funcionar, o componente nao usao o Driver do Windows, ele manda diretamente pra porta que voce especificar, com o manual dela voce podera ver os tipos de letras, tamanhos e posicoes que ela permite, qualquer coisa volte a postar novamente
|
abraços _________________ Abraços
Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores |
|
| Voltar ao Topo |
|
 |
forst Membro Junior


Registrado: Domingo, 26 de Junho de 2005 Mensagens: 367
|
Enviada: Ter Jun 03, 2008 2:19 pm Assunto: |
|
|
Boa tarde,
acredito que esse componente seria de grande utilidade...
mas procurei no site do projeto e só achei o componente ACBr, que vem com os componentes de ECF, TEF, Cheque, Validacao, etc... nao encontrei nada de impressora de Etiquetas, muito menor a Argox....
Você tem ele? poderia me enviar por email?
jonaskirch@hotmail.com
ou então disponibiliza o link ai pra min... porque não achei nada lá. Será que o download esta a disposição ainda?
Valeu, obrigado.
Abs. _________________ Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos. |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Qui Jun 05, 2008 11:01 am Assunto: Re: Impressora Argox os 214 |
|
|
| forst escreveu: | | Moderadores Active-Delphi escreveu: |
Tópico movido por gustavocco.
Motivo: Regras do Fórum.
Respeite as divisões do fórum.
|
Boa tarde,
estou com problemas para configurar uma etiqueta na impressora Argox os 214 para um cliente.
Estou programando pela forma PPLA.
Envio o tamanho como c0157 e após umas 30 etiquetas ela começa a se desalinhar, começa a subir um pouco.. e assim vai...
se eu deixar o tamanho como c0156 após umas 30 etiquetas ela começa a descer..
ta complicado, alguem ja programou nessa impressora e poderia me dar um auxilio?
Valeu,
[]'s |
Olá forst
Estou tentando configurar uma etiqueta na impressora Beetle MI5300 (é a mesmo que Argox 214 de acordo com as pesquisas na net), mas não estou conseguindo entender o código fonte.Já li várias vezes o manual mas não entendi nada.Teria como vc me ajudar.
Um outro programador fez este código (ele já saiu da empresa) e deixou sem comentário ...sem nada...estou perdido.Segue código abaixo:
WriteLn(Texto, 'qA');
WriteLn(Texto, 'c0000');
WriteLn(Texto, 'KI503');
WriteLn(Texto, 'O0220');
WriteLn(Texto, 'f220');
WriteLn(Texto, 'KW0433');
WriteLn(Texto, 'KI7');
WriteLn(Texto, 'V0');
WriteLn(Texto, 'L');
WriteLn(Texto, 'H11');
WriteLn(Texto, 'PC');
WriteLn(Texto, 'A2');
WriteLn(Texto, 'D11');
if (QtdCopia = 0) and ((RowCount - 1) >= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <then>= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <> '') then begin
QtdCopia := StrToInt(Cells[eQtdCopia, Linha]);
Codigo := Cells[eCodigo, Linha];
Cod_barra := Cells[eCODBAR, Linha];
Descri_Prod := Cells[eDescricaoProduto, Linha];
preco := StrToFloat(Cells[eValorUnit, Linha]);
end;
end;
WriteLn(Texto, '1A3103000050207'+Cod_barra);
WriteLn(Texto, '121100000620201'+Codigo);
WriteLn(Texto, '111200000600263'+'R$'+Alinha(FormatFloat(FazMascara(2),preco), walDireito, 12));
WriteLn(Texto, '101200000510202'+copy(Descri_Prod,1,40));
QtdCopia := QtdCopia - 1;
WriteLn(Texto, '^03');
WriteLn(Texto, 'Q0001');
WriteLn(Texto, 'E');
Se vc puder me ajudar...agradeço. |
|
| Voltar ao Topo |
|
 |
forst Membro Junior


Registrado: Domingo, 26 de Junho de 2005 Mensagens: 367
|
Enviada: Seg Jun 09, 2008 2:25 pm Assunto: |
|
|
Boa tarde Wolver...
também nao sei lhe ajudar muito. Pois estou apanhando para configurar a minha. Na verdade ela esta se desenquadrando quando mando imprimir várias.
Você ja olhou o manual ppla da impressora? tem alguns comandos iguais aos que estão sendo usados em seu codigo....
-----------------------------
Alguem tem o componente ACBr que imprime etiquetas na impressora argox?
Tenho uma configuração que esta funcionando, mas não sei o que estou fazendo de errado que quando mando imprimir varias etiquetas ela começa a se desenquadrar......
Qualquer ajuda eu agradeço muito, preciso resolver isso pra ontem =\
Valeuu..
abs. _________________ Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos. |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Ter Jun 10, 2008 11:16 am Assunto: |
|
|
| forst escreveu: | Boa tarde Wolver...
também nao sei lhe ajudar muito. Pois estou apanhando para configurar a minha. Na verdade ela esta se desenquadrando quando mando imprimir várias.
Você ja olhou o manual ppla da impressora? tem alguns comandos iguais aos que estão sendo usados em seu codigo....
-----------------------------
Alguem tem o componente ACBr que imprime etiquetas na impressora argox?
Tenho uma configuração que esta funcionando, mas não sei o que estou fazendo de errado que quando mando imprimir varias etiquetas ela começa a se desenquadrar......
Qualquer ajuda eu agradeço muito, preciso resolver isso pra ontem =\
Valeuu..
abs. |
Já consegui resolver o problema......obrigado pela ajuda, falow!!! |
|
| Voltar ao Topo |
|
 |
joemil Moderador

Registrado: Quinta-Feira, 25 de Março de 2004 Mensagens: 9100 Localização: Sinop-MT
|
Enviada: Ter Jun 10, 2008 11:53 am Assunto: |
|
|
ja resolveu? posta ai como vc fez pra q outros usuarios do forum possam aprender tb _________________ <b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Ter Jun 10, 2008 12:12 pm Assunto: Resolvido |
|
|
| joemil escreveu: | | ja resolveu? posta ai como vc fez pra q outros usuarios do forum possam aprender tb |
joemil
Consegui resolver utilizando esse mesmo código abaixo.
Um outro programador fez este código (ele já saiu da empresa) e deixou sem comentário ...sem nada...estou perdido.Segue código abaixo:
WriteLn(Texto, 'qA');
WriteLn(Texto, 'c0000');
WriteLn(Texto, 'KI503');
WriteLn(Texto, 'O0220');
WriteLn(Texto, 'f220');
WriteLn(Texto, 'KW0433');
WriteLn(Texto, 'KI7');
WriteLn(Texto, 'V0');
WriteLn(Texto, 'L');
WriteLn(Texto, 'H11');
WriteLn(Texto, 'PC');
WriteLn(Texto, 'A2');
WriteLn(Texto, 'D11');
if (QtdCopia = 0) and ((RowCount - 1) >= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <then>= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <> '') then begin
QtdCopia := StrToInt(Cells[eQtdCopia, Linha]);
Codigo := Cells[eCodigo, Linha];
Cod_barra := Cells[eCODBAR, Linha];
Descri_Prod := Cells[eDescricaoProduto, Linha];
preco := StrToFloat(Cells[eValorUnit, Linha]);
end;
end;
WriteLn(Texto, '1A3103000050207'+Cod_barra);
WriteLn(Texto, '121100000620201'+Codigo);
WriteLn(Texto, '111200000600263'+'R$'+Alinha(FormatFloat(FazMascara(2),preco), walDireito, 12));
WriteLn(Texto, '101200000510202'+copy(Descri_Prod,1,40));
QtdCopia := QtdCopia - 1;
WriteLn(Texto, '^03');
WriteLn(Texto, 'Q0001');
WriteLn(Texto, 'E');
No meu caso o cliente estava precisando imprimir em duas colunas e três colunas, ai fui fazendo por tentativa e erro até sair alinhado na etiqueta, como eu disse anteriormente o programador que fez isso não deixou comentários, e o manual da impressora é complicado de entender, e o povo pedindo pra liberar a etiqueta.Mas estou entrando em contato com o frabricante para ver se ele possa dar esclarecer esse código, resolver sem entender é "pobrema".Assim que eu tiver alguma novidade "pósto" novamente....falow!!! |
|
| Voltar ao Topo |
|
 |
forst Membro Junior


Registrado: Domingo, 26 de Junho de 2005 Mensagens: 367
|
Enviada: Sex Jun 13, 2008 10:58 am Assunto: |
|
|
Bom dia...
resolvi meu problema apenas tirando o tamanho cXXXX, com isso a impressora detecta automaticamente o fim da etiqueta e nao se desenquadra mais.
o estranho é que eu uso um rolo continuo, e no manual diz que para esse tipo de etiquetas deve se usar o comando cXXXX.
Mas o importante é que está resolvido... o problema era bem mais facil que eu imaginava.
Impressora inteligente essa ein... =P
Valeu..
[]s _________________ Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos. |
|
| Voltar ao Topo |
|
 |
sidneijunior Novato

Registrado: Quinta-Feira, 18 de Setembro de 2008 Mensagens: 3
|
Enviada: Qui Set 18, 2008 3:26 pm Assunto: |
|
|
Acabamos de comprar essa impressora e não consigo imprimir nela. Consigo impreimir sem dificuldades pelo DOS, usando o comando type (type output.txt > lpt1), mas se tento imprimir pelo bloco de notas ou por um probrama escrito em delphi, ele imprime as linhas de comando da impressora.
Alguém pode me ajudar?
Embaixo o código do programa.
procedure TForm1.Button1Click(Sender: TObject);
Var
Print: TextFile;
begin
AssignPrn(Print);
Rewrite(Print);
WriteLn(Print, 'qA');
WriteLn(Print, 'c0000');
WriteLn(Print, 'KI503');
WriteLn(Print, 'O0220');
WriteLn(Print, 'f220');
WriteLn(Print, 'KW0433');
WriteLn(Print, 'KI7');
WriteLn(Print, 'V0');
WriteLn(Print, 'L');
WriteLn(Print, 'H11');
WriteLn(Print, 'PC');
WriteLn(Print, 'A2');
WriteLn(Print, 'D11');
WriteLn(Print, '1A310300005020712345');
WriteLn(Print, '12110000062020167890');
WriteLn(Print, '111200000600263R$10');
WriteLn(Print, '101200000510202multirio');
WriteLn(Print, '^03');
WriteLn(Print, 'Q0001');
WriteLn(Print, 'E');
System.CloseFile(Print);
end; |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Sex Set 19, 2008 10:18 am Assunto: |
|
|
| sidneijunior escreveu: | Acabamos de comprar essa impressora e não consigo imprimir nela. Consigo impreimir sem dificuldades pelo DOS, usando o comando type (type output.txt > lpt1), mas se tento imprimir pelo bloco de notas ou por um probrama escrito em delphi, ele imprime as linhas de comando da impressora.
Alguém pode me ajudar?
Embaixo o código do programa.
procedure TForm1.Button1Click(Sender: TObject);
Var
Print: TextFile;
begin
AssignPrn(Print);
Rewrite(Print);
WriteLn(Print, 'qA');
WriteLn(Print, 'c0000');
WriteLn(Print, 'KI503');
WriteLn(Print, 'O0220');
WriteLn(Print, 'f220');
WriteLn(Print, 'KW0433');
WriteLn(Print, 'KI7');
WriteLn(Print, 'V0');
WriteLn(Print, 'L');
WriteLn(Print, 'H11');
WriteLn(Print, 'PC');
WriteLn(Print, 'A2');
WriteLn(Print, 'D11');
WriteLn(Print, '1A310300005020712345');
WriteLn(Print, '12110000062020167890');
WriteLn(Print, '111200000600263R$10');
WriteLn(Print, '101200000510202multirio');
WriteLn(Print, '^03');
WriteLn(Print, 'Q0001');
WriteLn(Print, 'E');
System.CloseFile(Print);
end; |
sidneijunior
Não veio um manual junto com a impressora?
Caso não, procure na net "Manual PPLA&PPLB"
nesse manual, mostra como funciona a impressão...quaquer coisa estamos aí... |
|
| Voltar ao Topo |
|
 |
sidneijunior Novato

Registrado: Quinta-Feira, 18 de Setembro de 2008 Mensagens: 3
|
Enviada: Sex Set 19, 2008 11:43 am Assunto: |
|
|
Consegui resolver, trocando o comando AssignPrn(Print) por AssignFile(Print, 'LPT1').
Agora o negócio é conseguir configurar a etiqueta, que está saindo toda trepada. |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Seg Set 22, 2008 9:13 am Assunto: |
|
|
| sidneijunior escreveu: | Consegui resolver, trocando o comando AssignPrn(Print) por AssignFile(Print, 'LPT1').
Agora o negócio é conseguir configurar a etiqueta, que está saindo toda trepada. |
Então...no manual mostra como configurar a etiqueta.
falow! |
|
| Voltar ao Topo |
|
 |
Wolver Membro Junior

Registrado: Quinta-Feira, 9 de Fevereiro de 2006 Mensagens: 343
|
Enviada: Qui Set 25, 2008 11:43 am Assunto: |
|
|
| sidneijunior escreveu: |
WriteLn(Print, 'qA');
WriteLn(Print, 'c0000');
WriteLn(Print, 'KI503');
WriteLn(Print, 'O0220');
WriteLn(Print, 'f220');
WriteLn(Print, 'KW0433');
WriteLn(Print, 'KI7');
WriteLn(Print, 'V0');
WriteLn(Print, 'L');
WriteLn(Print, 'H11');
WriteLn(Print, 'PC');
WriteLn(Print, 'A2');
WriteLn(Print, 'D11');
System.CloseFile(Print);
end; |
sidneijunior
vc conseguiu "decifrar" o que significa essa parte do código?O que está sendo feito?...se puder me ajudar agradeço, fiz uma outra etiqueta para um cliente, mas o código de barras está variando o tamanho de acordo com a quantidade de dígitos do produto, e está saindo "borrado" a impressão do código de barras....!Quem souber algo e puder me ajudar agradeço...falow! |
|
| Voltar ao Topo |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|