[[oscarac]]

no se ve el codigo...
aqui te muestro como hago yo la impresion de los tickets

Código Delphi [-]
 
procedure TfrmValesdeConsumo.ImprimirTicket;
var
  impresora:TextFile;
  vCadena : string;
begin
  AssignFile(Impresora, 'LPT1');
  rewrite(Impresora);
  Writeln(Impresora,'Nombre de Empresa');
  Writeln(Impresora,'R.U.C. : ');
  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 + '   ' + Izquierda(TimeToStr(GetTime),5)) ;
  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,'');
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,#27+'m');
  CloseFile(impresora);
end;