Qreport a Ticketeadora

[Viky]

Mando a imprimir desde quickreport a una ticketeadora Epson Tmp 2.01
e imprime solo lineas.

Que necesito configurar??

Viky.

[javier7ar]

Yo nunca logre imprimir desde quick report a una de esas impresoras, asi que si lo conseguis por favor pasa la solucion.

Yo lo que hago es abrir el puerto como si fuese un archivo de texto e imprimir con write o writeln (como se hacia desde DOS )

Código Delphi [-]
var
  F:TextFile;
begin
  AssignFile(F,'LPT1'); // Puede ser LPT1, LPT2, COM1, COM2, etc
  Rewrite(F);
  Write(F,#27#64); //Comando de inicializacion
  ...
  Writeln(F,'Lo que quiero imprimir');
  ...
  Write(F,#27#105); //Comando de corte de papel (si lo tiene la impresora)
  CloseFile(F);

Saludos

[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 : )

[luis vazquez]

YO HE ECHO REPORTES EN TIKERAS, LAS INSTALO EN WINDOWS COMO IMPRESORAS SOLO TEXTO, ME CUIDO DE IMPRIMIOR EN LETRA TIME TAMAÑO 12, Y NO MANDO NADA QUE PUEDA TOMARCE COMO IMAGENES, ESAS TIKERAS SOLO TOMAN TEXTO Y CON OTRAS COPSAS DAN PROBLEMAS, PERO ME FUNCIONAN BIEN CON EL QUITREPOR DE ESA FORMA