ذخیره گزارش با کد نویسی

سلام دوستان.
من با QReport کار میکنم و وقتی که از QReport.Preview استفاده میکنی دو تا دکمه برای ذخیره و یا لود گزارش توی فرمش هست.
من میخوام بدون اون دکمه و به کمک کد نویسی خود گزارش رو با پسوند خود QReport یعنی QRP ذخیره کنم.
راهی سراغ دارید ؟؟

نان فورس عزیز.
لطفا شما یک چیزی بگو
منتظر نظرت هستم.

ممنون

سلام
اگر قراره من جواب بدهم ديگه چرا اينجا مطرح مي كنيد؟!

اينها را امتحان كنيد :
1-

کد:

---

procedure TForm1.QuickRep1AfterPreview(Sender: TObject);
begin
 QuickRep1.QRPrinter.Save('d:\test.qrp');
end;

---

2-

کد:

---

procedure SaveQuickReportToStream(AQuickReport: TQuickRep; AStream: TStream);
var
  PL: TQRPageList;
  I: Integer;
begin
  PL := nil;
  try
    PL := TQRPageList.Create;
    PL.Stream := TQRStream.Create(1000000);
    AQuickReport.Prepare;
    PL.LockList;
    try
      for I := 1 to AQuickReport.QRPrinter.PageCount do
        PL.AddPage(AQuickReport.QRPrinter.GetPage(I));
      PL.Finish;
    finally
      PL.UnlockList;
    end;
    PL.Stream.SaveToStream(AStream);
  finally
    FreeAndNil(PL);
  end;
end;

---

نحوه استفاده :

کد:

---

  stream := TFileStream.Create('d:\test.qrp', fmCreate);
  SaveQuickReportToStream(QuickRep1, stream);
  stream.Free;

---

خیلی ممنون دوست عزیز.
مشکلمو حل کردی.
موفق باشی.