Imprimir etiqueta Impressora Zebra S600

Delphi

24/07/2006

Galera é o seguinte, to precisando de um exemplo ou um tutorial sobre a linguagem ZPL, da impressora Zebra, alguem tem algum exemplo de como imprimir na impressora Zebra S 600,

Ou se existe algum componente, alguma coisa do tipo.

Grato

Luis


Guigosnet

Guigosnet

Curtidas 0

Respostas

Renatacoimbra

Renatacoimbra

24/07/2006

ë bem Simples, dar uma olhada nesse exemplo:


procedure Etiqueta;
begin
  with StringList do
     begin
     Add(´^XA´);
     Add(´^FO18,110´);
     Add(´^AF,N,10,20´ + ´^FD´ + ´< ´+´Loja: NOME LOJA´ > ´ + ´^FS´);

     Add(´^FO01,145´);
     Add(´^AB,N,5,10  ^FD  FAVOR MANTER ESTA ETIQUETA  ^FS´); //Mesagem1

     Add(´^FO01,160´);
     Add(´^AB,N,5,10 ^FD  EM CASO DE TROCA. ^FS´); //Mesagem2

 //    Add(´^FO13,176´);
 //    Add(´^GB245,40,4,B,1^FS´); //Grade do tamanho

     Add(´^FO10,192´);
     Add(´^AF,N,10,30^FD TAM: 40´^FS´); //tamanho

     Add(´^FO13,234´);
     Add(´^AB,N,10,20´ + ´^FD´ + ´NOME DO PRODUTO´ +´^FS´); //Descrição do Produto

     Add(´^FO13,264´);    //
     Add(´^B2,60,Y,N^FD´ + ´0000000000017´ +´^FS´); //Codigo de barra do produto

     Add(´^FO116,353´);
     Add(´^AB,N,10,20´ + ´^FD´ + ´000001´ +´^FS´); //Descrição do Produto

     Add(´^FO13,378´);
     Add(´^GB245,90,4,B,1^FS´); //Grade de preço

     Add(´^FO11,383´);
     Add(´^AB,N,11,11^FD R$^FS´); //Cifrção de preço

     Add(´^FO40,409´); // Preço do produto
     Add(´^AF,N,30,30´ + ´^FD´ + ´99,00´ + ´^FS´);
     Add(´^XZ´);
     end;
end;



GOSTEI 0
POSTAR