Qreport a Ticketeadora

[krlox31416]

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)); // Inicializar Impresora
Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas
Write(MyPrinter,CHR(27)+ CHR(103)); // Tipo de Letra Chicas
Write(MyPrinter,CHR(27)+CHR(197)); // Negrita
Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lines
while not datamodule2.Table2.Eof do
begin
(*ListBox1.Items.Text:='                                          '+ListBox1.Items[i];
                         ListBox1.Items[i]:='     zzzz';*)
//ListView1.Items.Add [ DataModule2.Table2.FieldByName('Descripción').AsString+'............................................  ........$ '+DataModule2.Table2.FieldByName('Precio').AsString+' pesos'] );
ListBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString
(*ListBox1.Items[i-1]:='.........................................................................$ '+DataModule2.Table2.FieldByName('Precio').AsString+' pesos';*)
                         +'....................................................$ '+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); // Expulsar la Hoja
System.CloseFile(MyPrinter);
Exit;
end;

Busca en los foros y encontraras más información sobre impresoras de tickets

saludos : )