السلام عليكم
..
استخدم الدلفي 7 مع الـQReport واريد عمل ترقيم لجميع الصفحات مثلا :
اذا كان لدينا تقرير من ثلاث صفحات كبف يمكن طباعة ترفقيم الصفحات كالتالي :
1-1 في اسفل الصفحة الاولى ، 1-2 في اسفل الصفحة الثانية ، وكذلك نفس الامر مع الصفحة الثالثة .
؟؟
..
------
أضف عنصر QRSysData
له خاصية اسمها data
الباقي عليك
و عليكم السلام
مثلما ذكر زاهر207
1- نختار حيز ترقيم الصفحات، هنا لقد وضعته في أسفل الصفحة bandetype = rbPageFooter
2- هذه هي المطلوبة QRSysData التي تمكننا طباعة رقم الصفحة
3 - نحدد Data لـ QRSysData بـ qrsPageNumber
4 - هنا يظهر موقعه في وسط أسفل الصفحة مسبوق بكلمة Page :من نوع QRLabel
للتأكد اضغظ الزر الأيمن للفأرة ثم prévisualisé /Previewed
أتمنى أنه المطلوب
تحياتي :)
لكن اخوي كيف يمكن معرفة مجموع الصفحات حتى اتمكن من العرض مثل 1-3 ، 2-3 ، 3-3 ... فالطريقة السابقة تقوم بمعرفة رقم الصفحة الحالية فقط
------
السلام عليكم
مجموع الصفحات تظهر في QRLabel1
QuickRep2.QRLabel1.Caption:=IntToStr(QuickRep2.QRPrinter.PageCount);
اقتباسلا يمكن عمل السابق .. تظهر رسالة خطأ
QuickRep2.QRLabel1.Caption : هذه عندي أما عندك ضع اسم المكون (Name) الذي تعمل به
الإجراء لمعرفة عدد الصفحات هو :
[اسم مكون التقرير].QRPrinter.PageCount
السلام عليكم
..
اين يمكن وضع الكود ...
اقتباسQuickRep2.QRLabel1.Caption:=IntToStr(QuickRep2.QRPrinter.PageCount);
هل يمكن وضعه في :/
- Summary أم
- Detail أم
- PageFooter
------
حسب رأيي لو تفصل بينهم
اي تضع العدد الاجمالي في استعلام لوحده وتضع رقم الصفحة في استعلام اخر
وتكتب بينهم "من" أو "de " او شيء من هذا القبيل
يكون احسن
يبقى مجرد رأي ولو أني هجرت الدلفي من زمان :( :( :( :( ولم اعد ارى منه الا الاطلال :wacko: :wacko: :wacko:
اقتباس1-1 في اسفل الصفحة الاولى ، 1-2 في اسفل الصفحة الثانية ، وكذلك نفس الامر مع الصفحة الثالثة
اقتباسلكن اخوي كيف يمكن معرفة مجموع الصفحات حتى اتمكن من العرض مثل 1-3 ، 2-3 ، 3-3 ... فالطريقة السابقة تقوم بمعرفة رقم الصفحة الحالية فقط
ألست تريده بجانب ترقيم الصفحة ؟؟ أم غيرت رأيك
ضعQRLabel بجانب QRSysData ثم في الحدث OnPrint اكتب
procedure TQuickReport2.QRLabel1Print(sender: TObject; var Value: String); begin Value :=' / '+ IntToStr(QuickRep2.QRPrinter.PageCount); end;
أو
procedure TQuickReport2.QRLabel1Print(sender: TObject; var Value: String); begin QRLabel1.Caption :=' / '+ IntToStr(QuickRep2.QRPrinter.PageCount); end;
التصميم
النتيحة
للمزيد أنظر
Mohamed-Riadh كتب:يبقى مجرد رأي ولو أني هجرت الدلفي من زمان . . . . ولم اعد ارى منه الا الاطلال . . . . .
كلام لا فائدة منه .. فإذا هجرت فدعك من إبر الجمرة الخبيثة ..
في اي جزء من التقرير يتم وضع QRlabel.. فلقد وضعته فيsummary ولم ينجح الأمر
تم تعديل هذه المشاركة بواسطة أحمد_ليبيا في 21 مايو 2008 في 11:42
------
تضعه أين وضعت QRSysData أي في PageFooter
راجع كلامك في سؤالك الأول
اقتباس1-1 في اسفل الصفحة الاولى ، 1-2 في اسفل الصفحة الثانية ، وكذلك نفس الامر مع الصفحة الثالثة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
