Impresoras térmicas

[IVAND]

yo la trato como una impresora generica y imprimo directo al puerto

Código Delphi [-]
var
  txt: TextFile;
  L, Q1, A, A1, B, C, D, E: string;
  x: Integer;
begin

  L := chr(13) + Chr(10);
  Q1 := 'q500' + L;
  A1 := 'A220,10,0,1,1,1,N,"PRODUCTO :"' + '"' + DM_INV_FAC.ProductoNOMBRE.Value + '"' + L;
  B := 'B220,30,0,E30,2,20,100,B,' + '"' + DM_INV_FAC.ProductoCOD_PRODUCTO.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', DM_INV_FAC.ProductoPRECIOA.Value) + '"' + L;
  E := 'A210,20,1,1,1,1,N,' + '"' + DateToStr(date) + '"' + L;
  AssignFile(Txt, 'LPT1');
  Rewrite(Txt);
  for X := 1 to n_contador.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);

utilizo una zebra y funciona muy bien