مشکل در تعداد صفخات پرینت با QuickReport 5.4

[hedi]

سلام دوستان برنامه نویس
من QuickReport 5.4 را برای دلفی 2009 تهیه کردم در هنگام اجرای برنامه ام وقتی می خواهم از برنامه Print بگیرم در قسمت Printer Setup که مخصوص مشخص کردن تعداد صفحات چاپ است و یک گزینه ای به نام Page دارد که مشخص می کنیم از چه صفحه تا چه صفحه ای برای ما پرینت بگیرد. به عنوان مثال : گزارش ما شامل 10 صفحه است و ما می خواهیم فقط صفحه 1 تا 5 ، برای ما چاپ شود طبیعتا در قسمت Page از 1 تا 5 را انتخاب و بعد برروی OK کلیک می نماییم اما نکته اینجاست که وقتی بر روی دکمه Print کلیک می کنیم که صفحات چاپ شوند به جای این که صفحات انتخابی شما را که 1 تا 5 است را پرینت بگیرد می ره تمام صفحات را پرینت می گیره . یعنی 10 تا صفحه رو
البته یک نکته هم لازم به ذکر است اینه که این برنامه قبلا با همین QuickReport ورژن 4.7 که مخصوص دلفی 2007 بود کامپایل شده و هیچ مشکلی نداشت اما در دلفی 2009 و این نسخه QuickReport 5.4 به مشکل برخوردم . جالب این جاست که حتی نسخه Trial آن را هم که با آخرین تغییرات هم است از سایت گرفتم همین مشکل را داشت .
حالا با این اوصاف و تفاسیر راه حل مشکل جهت برطرف کردن این عیب از دید اساتید مجرب چیست.

[ArashM128]

سلام. اگر ميخواي كه اين مشكل براي هميشه حل بشه همه كارهاي چاپيتو به اين صورت انجام بده.
PD : TPrintDialog و QRPreview : TQRPreview

PD.MinPage := 1;
PD.MaxPage := QRPreview.QRPrinter.PageCount;

PD.FromPage := QRPreview.QRPrinter.FirstPage;
PD.ToPage := QRPreview.QRPrinter.LastPage;

PD.Copies := QRPreview.QRPrinter.Copies;

If PD.Execute Then
Begin
Case PD.PrintRange Of
prPageNums:
Begin
QRPreview.QRPrinter.FirstPage := PD.FromPage;
QRPreview.QRPrinter.LastPage := PD.ToPage;
End;
prAllPages:
Begin
QRPreview.QRPrinter.FirstPage := 1;
QRPreview.QRPrinter.LastPage :=
QRPreview.QRPrinter.PageCount;
End;
End;

QRPreview.QRPrinter.Copies := PD.Copies;

End;