[mar65]

muchas gracias lo intente pero no resulto, el mensaje que manda es: ' a component named qrstandardpreview already exist' y el codigo es el siguiente:

Código Delphi [-]
   while not tbrecibo.Eof do
   begin
     rec := inttostr(tbrecibo.fieldbyname('n_recibo').asinteger);
     qrrecibo := Tqrrecibo.Create(Application);
     with qrrecibo do
     try
       tbrecibo.open;
       tbrecibo.filter := '(n_recibo=' + chr(39) + rec + chr(39) + ')';
       tbrecibo.filtered := true;
       tbdetallerecibo.open;
       (folio viene de la forma que manda llamar el reporte)
       if folio = 1 then
         qrlfolio.caption := 'RECIBO:  ' + tbrecibo.fieldbyname   ('n_recibo').asstring
       else
         qrlfolio.caption := '';
          preview;
       tbrecibo.close;
       tbdetallerecibo.close;
     finally
         free;
     end;
     tbrecibo.next; (aqui manda el error en cualquier momento)
     if MessageDlg('¿Deseas Seguir Imprimiendo Recibos?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
       folio := 0
     else
       break;
   end;