delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى وبركاته
عندما تكون لي 5 صفحات
كيف اجعل في كل صفحة رقم كهذا
الصفحة الاولى يظهر بها صفحة : 1/5
الصفخة الثانية يظهر بها صفحة : 2/5
وهكذا الى غاية الصفحة الاخير والتي يجب ان يظهر بها صفخة : 5/5
وبارك الله فيكم

السلام عليكم أخي الكريم

أولا يجب عليك عد عدد الصفحات في الحدث onclick لزر الطباعة

كود :
var
nPag:integer;
begin
QuickRep1.Prepare ;
nPag := QuickRep1.QRPrinter.PageCount ;
QuickRep1.Preview ; // Print


الآن لديك رقم الصفحات ماعليك سوى نقل القيمة الى tQrlabel مثلا
QRLabel10.Caption:=IntToStr(nPag);

والباقي عليك وضعه الى جانب الصفحات في QuickRep1 كما تريد
والله هو الموفق

بارك الله فيكم ونفعني واياكم بما فيه الخير ان شاء الله

الاجابة في المرفقات

(05-05-2017, 04:25 PM)imadus كتب : [ -> ]الاجابة في المرفقات

شكرا على المرور وبارك الله فيكم
تم الحل وكانت النتيجة 100/100 بارك الله فيكم جميعا

medreg

wadoud

medreg

imadus

medreg