Impresion segun caracteres de la impresora Epson TMU-220
 

buenas noches

Tengo esta rutina que me sirve para imprimir un ticket de consumo, el problema que tengo es que la impresora imprime pero la fuente no es la de una matricial, mas bien la fuente es como dibujada (tipo arial), me gustaria saber como puedo mandar a imprimir pero con las fuentes de la impresora

Código Delphi [-]
 
procedure TfrmValesdeConsumo.ImprimirTicket;
var
  impresora:TextFile;
  vCadena : string;
begin
  AssignPrn(Impresora);
  rewrite(Impresora);
  Writeln(Impresora,'Servicial Peru S.A.C.');
  Writeln(Impresora,'R.U.C. : 20509227234');
  Writeln(Impresora,'');
  Writeln(Impresora,'Cajero : ' + dmComedor.g_NombreUsuario);
  Writeln(Impresora,'');
  Writeln(Impresora,'Codigo : ' + edtTrabajador.Text);
  Writeln(Impresora,'');
  Writeln(Impresora,lbltrabajador.caption);
  Writeln(Impresora,'');
  Writeln(Impresora,'Fecha :' + FormatDatetime('dd/mm/yyyy', dmComedor.g_fecha));
  Writeln(Impresora,'Doc.  :' + _DOC);
  Writeln(Impresora,'');
  CDSConsumo.First;
  while not CDSConsumo.Eof do
  Begin
    vCadena := IntToStr(CDSConsumoCantidad.Value) + ' ' +
               CDSConsumoCodigo.AsString + ' ' +
               CDSConsumoDescripcion.AsString + ' ' +
               FloatToStr(CDSConsumoTotal.Value);
    Writeln(Impresora, vCadena);
    CDSConsumo.Next;
  End;
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,#27+'m');
  CloseFile(impresora);
end;

Hola oscarac.

Cuando le enviás a una impresora matricial un font que no está en la ROM tiene que dibujar las letras como si fuesen gráficos, creo que eso es lo que te está sucediendo.

Me es imposible realizar algún tipo de prueba para verificarlo ya que no tengo acceso a ese modelo, pero revisá estos enlaces con datos técnicos sobre la TM-U220, en ellos vas a encontrar secuencias de configuración por soft. Entre paréntesis puse algunos puntos significativos, pero puede haber más.

[ Esc/POS ] (Selects the character font and styles)
[ EscP ] (Notes for DIP switch 2-1 / 5.4.2.2 LetterQuality / 6.1.1.2 Characters)

Por último tirate el lance que soporte las secuencias ESC/P2 soportadas por la mayoría de las matriciales Epson.
El uso sería mas o menos:

Código Delphi [-]
  Write(Impresora,#27#107#2);   // (currier)
  Write(Impresora,#27#120#78#0);  // (calidad de impresión= Borrador)
  ...

Aca tenés todas las secuencias: [ Esc/P2]

Espero te sea de ayuda.

Saludos.