copias impresion termica

[mRoman]

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