copias impresion termica
 

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:

Código Delphi [-]
    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..

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.

Solucionado
 

Que tal....

Encontré la solución:

Código Delphi [-]
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....

Código Delphi [-]
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

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