Por qué no cierras el formulario que contiene el Objeto QuickRep:
Código Delphi
[-]
public
Cerrar:Boolean;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.PreviewModal;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Cerrar:=True;
end;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
If Cerrar = True then
form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.ProcessMessages;
Action:=CaFree;
end;
Un Saludo.