6 respuestas en este tema

[marcelogracia]

Amigos, tengo la necesidad de imprimir texto a una impresora EPSON TMU-220A , no es fiscal sino que es tickeadora. por lo cual debe imprimir directamente texto sin necesidad de OCX ni otro componente.
Actualmente en Delphi 2010 tengo instalado una unit RawPrint que me permite imprimir a las matriciales y demás. pero en DXE2 no puedo instalar esta unit, no me compila.

Quisiera saber si alguno tiene o sabe como enviar texto a la TMU-220A desde delphi.
o si pudieran ayudarme a retocar el unit para que me compile en Delphi XE2
El error que tengo en DXE2 es que no me reconoce el Metodo  OpenPrinter(PWideChar(DeviceName), hPrinter, nil) me da error en el 2 parametro.

Desde ya, muchas gracias!

Archivos adjuntos

•  4576_e78cc6484d6b8b77438bdccc86a7888f784049d6.txt   4,7KB   6 descargas

[cram]

Por ahí te sirve esto:
http://www.cordobaof...sionDelphi.html
Este es el código que figura:

delphi

const
  ESC=CHR($1B);
  GS=Chr($1D);
  Inicializa=ESC+'@';
  Alin=ESC+'a';
  Izquierda=Alin+CHR(0);
  Centrado =Alin+CHR(1);
  Derecha  =Alin+CHR(2);
  FTE=ESC+'!';
  Fte10pp                =FTE+CHR(0);
  Fte12pp                =FTE+CHR(1);
  Fte10ppProp         =FTE+CHR(2);
  Fte12ppProp         =FTE+CHR(3);
  Fte10ppComp       =FTE+CHR(4);
  Fte12ppComp       =FTE+CHR(5);
  Fte10ppPropComp=FTE+CHR(6);
  Fte12ppPropComp=FTE+CHR(7);
  Fte10ppNegr         =FTE+CHR(8);
  Fte12ppNegr         =FTE+CHR(9);
  LF           =CHR(10);
  Colores    =ESC+'r';
  FteNegro  =Colores+CHR(0);
  FteRojo   =Colores+ CHR(1);
  LineaAtras=ESC+'K'+CHR(30);
  Corte      =GS+'V'+CHR(66)+CHR(4);
 
function Imprimir(Puerto:Integer;Texto:string):byte;
const
    Status=#16#4#1;
    Causa= #16#4#2;
var Num:Byte;
    cont:Word;   
    Mode:DCB;   
    Tiempos:COMMTIMEOUTS;   
    // MODO DEL PUERTO SERIE
    procedure PoneModo;
    begin
      GetCommState(Puerto, Mode);
      Mode.BaudRate := 9600;
      Mode.ByteSize := 8;
      Mode.Parity := NOPARITY;  
      Mode.StopBits := ONESTOPBIT;  
      SetCommState(Puerto, Mode);    
      GetCommTimeouts(Puerto, Tiempos);  
      Tiempos.ReadIntervalTimeout := 300;
      Tiempos.ReadTotalTimeoutMultiplier:= 300;
      Tiempos.ReadTotalTimeoutConstant:= 300;   
      SetCommTimeouts(Puerto, Tiempos);  
      GetCommTimeouts(Puerto, Tiempos);  
    end;
    // ESCRIBE CADENA Y DEVUELVE CARACTERES ENVIADOS
    function Escribe(Cad:string):Integer;
    begin
      cont:=0;
      repeat
        inc(cont);
        FileWrite(puerto,Cad[cont],1);
      until cont=Length(cad);
      Result:=cont;
    end;
    // CONTROLA SI HUBO ERROR Y DEVUELVE EL NUMERO DE ERROR
    function Controla:Integer;
    begin
      Escribe(Status);
      Num:=0;
      cont := FileRead(Puerto,Num,1);    
      Result:=Num and 8;  
      if cont = 0 then Result:=99;    
      if Result=8 then begin
        Escribe(Causa);
        Num:=0;
        FileRead(Puerto,Num,1);
        Result:=Num and 44;
      end;
    end;
begin
  case Puerto of
    1:Puerto:=FileOpen('COM1',fmOpenReadWrite);
    2:Puerto:=FileOpen('COM2',fmOpenReadWrite);
    3:Puerto:=FileOpen('COM3',fmOpenReadWrite);
    4:Puerto:=FileOpen('COM4',fmOpenReadWrite);
  end;
  PoneModo;
  Escribe(Inicializa);
  if Texto<>'' then begin
    Texto:= AnsiReplaceStr(Texto,'Ñ', #165);
    Texto:= AnsiReplaceStr(Texto,'ñ', #164);
    Texto:= AnsiReplaceStr(Texto,'á', #160);
    Texto:= AnsiReplaceStr(Texto,'é', #130);
    Texto:= AnsiReplaceStr(Texto,'í', #161);
    Texto:= AnsiReplaceStr(Texto,'ó', #162);
    Texto:= AnsiReplaceStr(Texto,'ú', #163);
    Escribe(Texto);
  end;
  Result:=Controla;
  FileClose(Puerto);
end;
 
// Ejemplo de uso
var Cad:string;
begin
  Cad:='Prueba de impresión'+slinebreak+'Probando TM-U220'+LF;
  Cad:=LineaAtras+LineaAtras+LineaAtras+LineaAtras+Cad+Corte;
  Imprimir(1,Cad);
end;

[Marc]

Hola.

La forma más sencilla es que simplemente instalen los drivers de la impresora (tendrán que descargarlos de la página de Epson) y utilizarla como cualquier otra impresora de Windows.

Saludos.

[marcelogracia]

MARC asi esta funcionando. pero es muy lento. Demora entre 30/40seg por ticket
Voy a tratar de sacar datos que no sean valido y tratar de agilizar. De todas formas probare como texto.
Gracias.

[rodrinig]

Hola, mira yo solamente doy de alta una impresora Generic/Text only y le indico el puerto que corresponde y mi codigo es el siguiente:

delphi

procedure TfrmVAdmiSoloDes.btnImpClick(Sender: TObject);
Var MyPrinter: TextFile;
xcan,  xval, xtot,  xcam:shortstring;
xdes : string[35];
xAne : string[35];
xsum:real;
consulta:string;
begin
 
 
  AssignFILE(MyPrinter,'COM1');
  ReWrite(MyPrinter);
//  Write(MyPrinter, CHR(27) + CHR(64)); // Inicializar Impresora
  //Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas
//  Write(MyPrinter,CHR(27)+ CHR(77)); // Tipo de Letra Chicas
//  Write(MyPrinter,CHR(27)+ CHR(104)+CHR(2)); // Tipo de Letra Chicas
//  Write(MyPrinter,CHR(27)+ CHR(13)); // Tipo de Letra Chicas
  //Write(MyPrinter,CHR(27)+CHR(197)); // Negrita
  Writeln(MyPrinter,'----------------------------------------');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  //Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lines
  Writeln(MyPrinter,'* * * COCINA * * * ');
  Writeln(MyPrinter,'NR.ORDEN:' + cdsTempME_ORDEN.asstring + '  ' + ' HORA: ' + cdsTempOR_INICIO.asstring);
  Writeln(MyPrinter,'Moso :  ' + self.cdsTempMO_NOMBRE.asstring);
  Writeln(MyPrinter,'Mesa :  ' + self.cdsMesasME_DESCRIP.asstring );
//----------------------------
//------------------------------
  Writeln(MyPrinter,'----------------------------------------');
  self.cds_prin.First;
  while not self.cds_prin.Eof do
  begin
    xdes:=copy(self.cds_prinORPR_DESCRIP.AsString,1,35);
    Writeln(MyPrinter,xdes);
    if SELF.cds_prin_d.Active then
      self.cds_prin_d.Close;
    self.cds_prin_d.DataSet.Params[0].AsInteger := self.cds_prinORPR_N_ORDEN.AsInteger ;
    self.cds_prin_d.DataSet.Params[1].AsInteger  := self.cds_prinORPR_INDICE.AsInteger ;
    self.cds_prin_d.Active := True;
    if not self.cds_prin_d.IsEmpty then
      begin
        self.cds_prin_d.First;
        while not self.cds_prin_d.Eof do
          begin
//            xcan:=format('%2.0f',[self.cds_prin_dORPRD_INX.AsFloat]);
            xdes:=copy(self.cds_prin_dORPRD_DESCRIP.AsString,1,25);
            Writeln(MyPrinter,'*'+' '+xdes);
            self.cds_prin_d.Next;
          end;
      end;
    if dm.sp_marco_prin.active then
      dm.sp_marco_prin.Close;
    dm.sp_marco_prin.Params[0].AsInteger := self.cds_prinORPR_N_ORDEN.asinteger ;
    dm.sp_marco_prin.Params[1].asinteger := self.cds_prinORPR_INDICE.asinteger ;
    dm.sp_marco_prin.ExecProc ;
 
    self.cds_prin.Next;
  end;
  Writeln(MyPrinter,'----------------------------------------');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter,'');
  Writeln(MyPrinter, #27+#105); //corte de papel   ESC+i  o #27+(el valor ascii de i)
//Write(MyPrinter,#12); // Expulsar la Hoja
  System.CloseFile(MyPrinter);
  self.cds_prin.Refresh;

[marcelogracia]

Instale el RawPrint, envio a imprimir, pero no puedo enviar el comando para el salto de linea, ni tampoco el comando escape para cortar el papel..
No me lo toma, y me esta imprimiendo todo en una sola linea

[poliburro]

Yo usé esa impresora en un sistema hace ya algunos años. Si mal no recuerdo tiene un conector adicional que abre el cajón de monedas.

Bueno la impresión en esa impresora yo la resolví con quickreport y configurando el tamaño de papel predeterminado en las opciones de la impresora. El corte lo hacía si mal no recuerdo con el salto de hoja.