ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Impressora Argox os 214 [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
forst
Membro Junior
Membro Junior


Registrado: Domingo, 26 de Junho de 2005
Mensagens: 367

MensagemEnviada: Ter Mar 04, 2008 5:26 pm    Assunto: Impressora Argox os 214 [Resolvido] Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Borland_Linuxer
Moderador
Moderador


Registrado: Terça-Feira, 11 de Outubro de 2005
Mensagens: 4252
Localização: Manaus - Am

MensagemEnviada: Ter Mar 04, 2008 5:49 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
forst
Membro Junior
Membro Junior


Registrado: Domingo, 26 de Junho de 2005
Mensagens: 367

MensagemEnviada: Ter Jun 03, 2008 2:19 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Qui Jun 05, 2008 11:01 am    Assunto: Re: Impressora Argox os 214 Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
forst
Membro Junior
Membro Junior


Registrado: Domingo, 26 de Junho de 2005
Mensagens: 367

MensagemEnviada: Seg Jun 09, 2008 2:25 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Ter Jun 10, 2008 11:16 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Ter Jun 10, 2008 11:53 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Ter Jun 10, 2008 12:12 pm    Assunto: Resolvido Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
forst
Membro Junior
Membro Junior


Registrado: Domingo, 26 de Junho de 2005
Mensagens: 367

MensagemEnviada: Sex Jun 13, 2008 10:58 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
sidneijunior
Novato
Novato


Registrado: Quinta-Feira, 18 de Setembro de 2008
Mensagens: 3

MensagemEnviada: Qui Set 18, 2008 3:26 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Sex Set 19, 2008 10:18 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
sidneijunior
Novato
Novato


Registrado: Quinta-Feira, 18 de Setembro de 2008
Mensagens: 3

MensagemEnviada: Sex Set 19, 2008 11:43 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Seg Set 22, 2008 9:13 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
Wolver
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343

MensagemEnviada: Qui Set 25, 2008 11:43 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB