Imprimir en Zebra

[IVAND]

Las impresoras zebras imprimen con un lenguaje EPL (ver manual tecnico ) , donde te indican que letra usar , posicion , codigo de barras, texto invertido etc ,

Desde delphi solo tienes que utilizar una impresora generica y mandar el codigo que entienda la impresora

Ejemplo

xxxx

var

Código Delphi [-]
  strHora, strFecha,cadena : string;
  txt: TextFile;
  L,Q1,A,A1,B,C,D,E:String ;

Begin
  L:=chr(13)+Chr(10);
   Q1:='q500'+L;
   A1:='A220,10,0,1,1,1,N,"PRODUCTO :"'+'"'+JfEdit1.Value+'"'+L ;
   B:='B220,30,0,E30,2,20,100,B,'+'"'+JfEdit3.Value+'"'+L ;
   C:='A440,50,0,3,1,1,N,"P.V.P"'+L;
   D:='A440,70,0,3,1,1,N,'+'"'+FormatFloat('0.00',JfEdit2.Value)+'"'+L;
   E:='A210,20,1,1,1,1,N,'+'"'+DateToStr(date)+'"'+L;
   AssignFile(Txt, 'LPT1');
   Rewrite(Txt);
 for X:= 1 TO JfEdit4.Value DO
   Writeln(Txt, L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+A+A1+B+C+D+E+'P1');

   CloseFile(Txt);
End ;