ترقيم صفحات التقرير عند طباعه أكثر من نسخه من نفس التقرير

[esam munir]

السلام عليكم ورحمه الله وبركاته

لدى نموذج به كود يقوم بطباعه تقرير مرتبط به عدد معين من النسخ اتحكم فى عددها ولا توجد أى مشكله 

المشكله أننى احتاج عند الضغط على هذا الكود وليكن سيتم طباعة 10 نسخ أن تكون هذه النسخ مرقمة كالاتى 1 من 10. و  2 من 10 وهكذا 

اسف للاطاله

تم تعديل مارس 2, 2021 بواسطه esam munir

[esam munir]

ارجو المساعده من حضراتكم

[esam munir]

ارجو من الاخ ابو خليل مساعدتى للأهمية 

Dim i as integer
Do until i = 5
i = i+1
Docmd.openreport" "
acviewnormal
Loop

هذا الكود اخذتة عن حضرتك لطباعة عدد نسخ بشكل مباشر وهو ماشاء الله ممتاز 

سؤالى هو احتاج ترقيم النسخ 1من5 و 2من5 وهكذا او على اقل تقدير اعمل text box فى التقرير واكتب فيه رقم 1 ومع كل نسخة طباعة يزيد هذ الرقم ليكون 2 وهكذا 

الف شكر 

وللاخوة الاعزاء من يقدر على مساعدتى جزاه الله خيرا

 

[jjafferr]

وعليكم السلام 🙂

 

عملت تغيير بسيط في الكود السابق:

myTotal_Page_Number = 5

Do until myPage_Number = myTotal_Page_Number
  myPage_Number = myPage_Number + 1
  Docmd.openreport" "
  acviewnormal
Loop

 

اذهب الى اي وحدة نمطية عندك ، واذا ما عندك ، اعمل واحدة ، واكتب التالي في اعلى الوحدة النمطية:

Option Compare Database
Option Explicit

اكتب التالي تحت السطر او السطرين اعلاه
  public myPage_Number as integer
  public myTotal_Page_Number as integer

 

وفي التقرير اعمل حقلين جدد لترقيم الصفحات:

حقل رقم الصفحة التي يتم طباعتها الآن ، وفي مصدر بيانات الحقل اكتب: myPage_Number=

حقل مجموع عدد الصفحات التي يتم طباعتها الآن ، وفي مصدر بيانات الحقل اكتب: myTotal_Page_Number=

 

جعفر

 

[esam munir]

اشكرك اخ جعفر على المساعدة 

انا فهمت التغييرات فى الكود  الاول لكن جزء الوحده النمطية ده مش قادر أفهمه 

حضرتك تقصد أنه اختيار تانى ولا مكمل للكود وفين مكانه بالظبط وفى حدث ايه 

واعذرنى على عدم فهمى

 

[ابوخليل]

السلام عليكم

 

بدون احداث

افتح اي وحدة نمطية عامة ( module) موجودة في البرنامج عندك والصق السطرين في اعلى الصفحة

بشرط يكونوا تحت 

Option Compare Database
Option Explicit

ويمكن تجد فقط 

Option Compare Database

[esam munir]

السلام عليكم ورحمه الله وبركاته

عملت بالظبط ما تم توضيحه من حضراتكم ولكن النتيجه تم الطباعه مفيش مشكلة لكن رقم الصفحه فى التقرير واجمالى الصفحات يظهر #Name.   

[biskra]

عليك بوضع نسخة من الملف للتعديل عليه

[esam munir]

للاسف حجم الملف 37 ميجا ومش بيقبل ارفقة

 

[biskra]

نسخة من التقرير فقط الذي تريد التعديل عليه

[jjafferr]

والكود الذي عملته