Impresoras térmicas

[MikyVato]

Hola quiciera saber como debo hacer, tengo la intencion de imprimir etiquetas en una impresora termica sin utilizar los drivers de windows, la misma esta conectada por el puerto COM2, la verdad no tengo idea de como comenzar.....

Saludos gracias

[PepeLolo]

He intentado acordarme como puedes imprimir de forma facil, en el trabajo hace tiempo usamos una impresora zebra para la impresión de etiquetas, mañana cuando llegue al trabajo intentare colgar el ejemplo.

un saludo.

[MikyVato]

quizas te sirva de algo, la impresora es Intermec el Modelo es EasyCoder4300... Bueno espero, saludos

[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

[cors]

Tenes que escribir al puerto donde la tenes conectada. Pero tenes que revisar cual es el lenguaje de programacion que utiliza para imprimir ya que las zebras usan zpl2 creo y esa que tu tienes deberia de tener uno propio.