Tengo el mismo codigo que mensiona javier7ar el problema se debe a los dirives de la impresora tal vez en la información de tu epson biene como solucionar esto.
Código Delphi
[-]
begin
AssignFILE(MyPrinter,'USB');
ReWrite(MyPrinter);
Write(MyPrinter, CHR(27) + CHR(64)); Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); Write(MyPrinter,CHR(27)+ CHR(103)); Write(MyPrinter,CHR(27)+CHR(197)); Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); while not datamodule2.Table2.Eof do
begin
ListBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString
+'....................................................$ '+DataModule2.Table2.FieldByName('Precio').AsString+' pesos');
Label8.Caption:=DataModule2.Table2.FieldByName('Clave').AsString;
Edit2.Text:=DataModule2.Table2.Fieldbyname('Precio').AsString;
precio:=DataModule2.Table2.Fieldbyname('Precio').AsString;
descripcion:= (DataModule2.Table2.Fieldbyname('Descripción').AsString);
cobros:= cobros + StrToFloat(Edit2.Text);
Edit2.Text:=FloatToStr(cobros);
Edit1.Text:=Edit2.Text;
i:=1;
Edit9.Text:=CantidadEnLetra(StrToFloat(Edit2.Text) ,i);
Writeln(MyPrinter,'');
Writeln(MyPrinter,' -------------------------------------');
Writeln(MyPrinter,' SISTEMA CAJA ');
Writeln(MyPrinter,' -------------------------------------');
Writeln(MyPrinter,' FECHA: '+ DateTimeToStr(Now));
Writeln(MyPrinter,' EMILIANO ZAPATA # 116 San Juan del Río, Qro. ');
Writeln(MyPrinter,' -------------------------------------');
Writeln(MyPrinter,' VENTA DE MOSTRADOR ');
Writeln(MyPrinter,'');
Writeln(MyPrinter,' PRODUCTO IMPORTE');
Writeln(MyPrinter,' -------------------------- ');
Writeln(MyPrinter,' ' );
Writeln(MyPrinter,' '+descripcion + ' $ '+precio );
Writeln(MyPrinter,' -------------------------- ');
Writeln(MyPrinter,' TOTAL IMPORTE A PAGAR: '+' $ '+Edit1.text );
Writeln(MyPrinter,' ' );
Writeln(MyPrinter,' '+CantidadEnLetra(StrToFloat(Edit1.Text),i));
Writeln(MyPrinter,' -----------------------------------------');
Writeln(MyPrinter,' RECIBO '+' '+' $ '+Edit3.text);
Writeln(MyPrinter,' CAMBIO:'+' '+' $ '+Edit4.text);
Writeln(MyPrinter,' '+CantidadEnLetra(StrToFloat(Edit4.Text),i));
Writeln(MyPrinter,' -----------------------------------------');
Writeln(MyPrinter,'');
Writeln(MyPrinter,' SALIDA LA MERCANCIA NO SE ACEPTAN CAMBIOS NI');
Writeln(MyPrinter,' DEVOLUCIONES ');
Writeln(MyPrinter,'');
Writeln(MyPrinter,CHR(27)+ CHR(120)+' GRACIAS POR SU COMPRA!!! ');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Writeln(MyPrinter,'');
Write(MyPrinter,#12); System.CloseFile(MyPrinter);
Exit;
end;
Busca en los foros y encontraras más información sobre impresoras de tickets
saludos : )