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


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.


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:cool: