بســم الله الـرحمــن الرحيــم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
إلى كوكبة أعضائنـا الكرام السلام عليكم ورحمة الله تعالى و بركاته
لدي مشكلة صغيرة و هي حفظ تقارير الكويك ريبور على شكل
أو
WORD
حاولت البحث لكن كل ماوجدته هو حفظ تقارير الـــــ
RAV
و بالرغم من محاولتي للتعديل عليها و حفظ الكويك ريبور لكنني فشلت فهل من مساعدة
ملاحظة : لقد وجدت هذا السورس و لم أفهم منه شيئا
procedure SaveQuickReportToStream(AQuickReport: TQuickRep; AStream: TStream);
var
PL: TQRPageList;
I: Integer;
begin
PL := nil;
try
PL := TQRPageList.Create;
PL.Stream := TQRStream.Create(100000);
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;
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TFileStream;
begin
stream := TFileStream.Create('c:\quickreport.dat', fmCreate);
QuickReportToStream(QuickRep1, stream);
stream.Free;
end;
uses QRPrntr;
للعلم فأنا أستخدم دلفي 7 أما الكويك ريبور فهي النسخة المرفقة معه