تهیه Custom Preview برای Quick Report

[mojtaba_z]

سلام

من از Delphi 6 و Quick Report 3 استفاده میکنم . و میخوام یه Custom Preview درست کنم ولی یک سری اشکال برم پیش اومده . فایل برنامه رو ضمیمه کردم . و اما اشکالاتم :
1- دکمه Print , Save , Load به درستی عمل نمیکنند ؟
2- بعد از لود شدن فرم Preview ، تعداد صفحات (Page Number) نشان داده نمی شود ؟

اگه در قسمت های دیگه اشکالی میبینید لطفا راهنمایی کنید . تا برنامه بهتر بشه .

http://uploadhut.com/view.php/555069.rar

با سپاس

[SYNDROME]

با سلام

سلام
فایل برنامه رو ضمیمه کردم .
ما که فایلی ندیدم!!!

[mojtaba_z]

فایل رو Upload کردم .
اگه سایتی برای Upload رایگان میشناسید که خوب باشه بگید تا اونجا Upload کنم .

[mojtaba_z]

آقای SYNDROME فایل رو تو آدرس زیر آپلود کردم.

http://uploadhut.com/view.php/555069.rar

[Saeid59_m]

من قبلاً این کار رو انجام داده ام .‌ یه مشکلی که وجود داره اینه که زمانی که در حال Preview هستید صفحات ساخته می شوند نه قبل از نمایش گزارش . یعنی اگه یک گزارش 1000 صفحه ای داشته باشید می بینید که شماره صفحه زمان شروع نمایش Preview یک هست و همینطور ادامه پیدا می کنه تا به هزار برسه .

حالا اگه قبل از اینکه گزارش به طور کامل ساخته بشه یا در مثال ما 1000 صفحه تمام بشه Print‌ ، Save و یا هر کار دیگه ای انجام بدی یه پیغام خطای زشت حافظه می بینی حتی تو ورژن های جدیدش .

بنابراین تعداد کل صفحات در ابتدای گزارش قابل تشخیص نیست چون زمان نمایش گزارش صفحات ساخته می شوند مگر اینکه زمان نمایش کد زیر رو در Preview بنویسی اما باز هم مشخص نیست که صفحات تموم شده یا نه



procedure TForm120.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
begin
Form120.Label3.Caption:=inttostr (PageNum);
end;




اگه باز هم مشکل داشتی بگو .

[mojtaba_z]

سلام
از این کد استفاده کردم ، جواب داد .
خیلی ممنون