copias impresion termica

[mRoman]

Hola buenas noches

Uso Delphi6, Firebird 2.0

Tengo problemas con impresora térmica EPSON T20-T20II para imprimir copias de los tickets. No he podido imprimir el ticket 2 veces, ni desde delphi cambiando las propiedas del QuickRep, copies...cambiandole a 2 y desde las propiedas de la impresora no me deja cambiarle, por default trae 1.

COMO LE PUEDO CAMBIAR U ORDENAR Q ME IMPRIMA 2 VECES EL TICKET???.

Tambien hice esto:


qrTicket.QuickRep1.Print;
qrTicket.QuickRep1.Print;


Pero tampoco...alguno de ustedes le ha pasado lo mismo....como lo solucionaron.

P.D. No manda ningun error...solo imprime 1 vez.

Gracias..

[mRoman]

Estoy intentando mandar desde el bock de notas y ahi le indique 2 copias, y me salio un mensaje como este:"Esta impresora no puede imprimir tantas copias...." etc, etc.

NO...NO PUEDE SER POSIBLE !!!...ENTONCES TENDRIA QUE ENVIARLO 2 VECES A IMPRESION !....ah !, ya lo hice !!...y no funciono....seguiré buscando.

[mRoman]

Que tal....

Encontré la solución:

procedure TfrmDetalleComanda.sBtnImprimirClick(Sender: TObject);
begin

{ qrTicket.qryCantLetra.Close;
// qrTicket.qryCantLetra.ParamByName('id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInteger;
qrTicket.qryCantLetra.ParamByName('id').AsInteger:=nID;
qrTicket.qryCantLetra.Open;
qrTicket.qryTicket.Close;
// qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInt eger;
qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=nID;
qrTicket.qryTicket.Open;
qrTicket.QuickRep1.Print;
qrTicket.QuickRep1.Print;}
ImprimirTicket(); //Aqui la solucion
ImprimirTicket(); //Mande llamar 2 veces para q me imprima el ticket 2 veces
frmMesasAbiertas.btnActualizarClick(Sender);
Close;
end;


Esta es el procedure q imprime el ticket 2 veces....

procedure TfrmDetalleComanda.ImprimirTicket();
begin
qrTicket.qryCantLetra.Close;
// qrTicket.qryCantLetra.ParamByName('id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInteger;
qrTicket.qryCantLetra.ParamByName('id').AsInteger:=nID;
qrTicket.qryCantLetra.Open;
qrTicket.qryTicket.Close;
// qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInt eger;
qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=nID;
qrTicket.qryTicket.Open;
qrTicket.QuickRep1.Print;
end;


Lo que esta de GRIS era como lo tenia definido...y asi no me funcionaba ya que despues de imprimir como que los DataSets (IBQuery) se cerraban y me decia que los campos q queria imprimir no estaban, cuando lo queria imprimir otra vez...

qrTicket.QuickRep1.Print;
qrTicket.QuickRep1.Print;

Saludos....y gracias por el tiempo q hayan invertido en querer ayudarme

[Casimiro Notevi]

^\||/ ^\||/ ^\||/