Impressora Zebra EPL/ZPL

[Diego Campos Rosa]

Boa tarde pessoal!!!

Alguém já desenvolveu impressão de etiquetas para impressoras Zebra com conexão  Ethernet ?

Estou precisando ter idéias de como isso funciona.

Grato 

Atenciosamente,

Diego Campos Rosa
Analista de Sistemas
Aquasoft / parceira Embarcadero no Rio Grande do Sul
www.aquasoft.com.br 
 

My profiles:   

IMPORTANT: The contents of this email and any attachments are confidential. They are intended for the named recipient(s) only. If you have received this email by mistake, please notify the sender immediately and do not disclose the contents to anyone or make copies thereof.

Signature powered by WiseStamp 

[Diego Feijó]

Aqui na empresa utilizo a zebra tlp 2844 porém na interface paralela. Acredito que esta de rede seja com se fosse um print server, você adiciona ela no windows pela porta tcp/ip.

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs

--
Atenciosamente,
Diego Feijó
Programador: Delphi, Flex, PHP e Java.
Banco de Dados: Oracle, Mysql, PostGree e Firebird.

[Diego Campos Rosa]

Diego Feijo,

Considerando que a impressora que você possui hoje foi programada via ZPL/EPL, caso ocorrer a troca para Zebra GK420/COM REDE INTERNA você teria que mudar alguma coisa na programação?

Você tem algum site para indicar com exemplos desse tipo de programação?

Grato.

Atenciosamente,

Diego Campos Rosa
Analista de Sistemas
Aquasoft / parceira Embarcadero no Rio Grande do Sul
www.aquasoft.com.br 
 

My profiles:   

IMPORTANT: The contents of this email and any attachments are confidential. They are intended for the named recipient(s) only. If you have received this email by mistake, please notify the sender immediately and do not disclose the contents to anyone or make copies thereof.

Signature powered by WiseStamp 

[Diego Feijó]

Diego,
eu utilizo um programa da própria zebra o Zebra Designer (no site você encontra) você monta o layout da etiqueta ele gera o código ZPL/EPL automático para você, depois é só copiar e implementar ele no delphi.

[Diego Campos Rosa]

Feijó,

Você tem um exemplo dessa implementação?

Obrigado.

[Diego Feijó]

Eu faço desta forma, dentro da pasta do meu sistema crio uma pasta chamada Etiqueta. Esta pasta eu utilizo para armazenar temporariamente os arquivos com os códigos das etiquetas. Veja o exemplo comentado.

AssignFile(f,'c:\Sistema\Etiqueta\etiqueta.txt'); // Crio o arquivo na pasta do sistema
Rewrite(f);

// Esta é a tabela que me traz as informações que estarão na etiqueta
// o while vai percorrer ela gerando as etiquetas no arquivo criado.
while not dm_principal.tbl_etiqueta_comercial.Eof do
  begin


    // Estes 3 primeiros códigos referen-se a velocidade de impressão entre outros
    Writeln(f,'N');
    writeln(f,'D10');
    Writeln(f,'S9');

   // Esta numeração inicial refere-se a posição onde será impresso na etiqueta, por isso é interessante
   // você criar o layout no ZebraDesigner primeiramente.
  // após as posições você vai inserir a string.
   
    Writeln(f,'A30,14,0,4,2,2,N,"Bento"');
    Writeln(f,'A30,56,0,1,2,2,N,"Ambientes de Marca"');

    // Caso o check estiver marcado ele adiciona a quantidade x volume na etiqueta
    if CheckBox1.Checked then
       Writeln(f,'A30,120,0,1,2,3,N,"Quant:'+dm_principal.tbl_etiqueta_comercial.FieldValues['quant']+'"');

    Writeln(f,'A30,170,0,1,2,3,N,"OP:'+dm_principal.tbl_etiqueta_comercial.FieldValues['cod_item']+'"');
    Writeln(f,'A30,220,0,1,2,3,N,"Descr.:'+dm_principal.tbl_etiqueta_comercial.FieldValues['descricao']+'"');
    Writeln(f,'A30,270,0,1,2,3,N,"Destino:'+dm_principal.tbl_etiqueta_comercial.FieldValues['tipo']+'"');
   // Writeln(f,'A30,379,0,2,1,1,N,"T.I Bento Ambientes de Marca"');


   
    // Este P1 indica a quantidade de etiquetas a serem impressas.
    Writeln(f,'P1');

    dm_principal.tbl_etiqueta_comercial.Next;
  end;

CloseFile(f);
AssignFile(f,'c:\SisBento\Etiqueta\etiqueta.txt');
Reset(f);


Depois é só mandar imprimir este arquivo diretamente na porta lpt1.

[Diego Feijó]

Diego, você também pode enviar diretamente para a porta como no exemplo abaixo. Eu particularmente prefiro criar o arquivo para depois imprimir, assim evito da aplicação derrepente trancar e ficar imprimindo insistentemente.

http://www.devmedia.com.br/articles/viewcomp.asp?comp=12297

[Diego Campos Rosa]

Grande Feijó,

Sua ajuda foi muito esclarecedora.

Qualquer coisa faço novo contato.

Muito obrigado!

[Diego Feijó]

Beleza.

Grande abraço.