مطلوب طباعة التقرير اكثر من نسخة وترقيم النسخ

[esam munir]

السلام عليكم ... من فضلكم احتاج كود طباعة( موجود الزر بالنموذج ) لتقرير معين يقوم بطباعة نفس التقرير اكثر من نسخة يكون عدد النسخ مطابق لرقم داخل النموذج وبشرط ان يتم ترقيم رقم الصفحة داخل التقرير بشكل تصاعدى مع كل نسخة على سبيل المثال فى المرفق 

عند الضغط على زر طباعة داخل النموذج يقوم بطياعة التقرير عدد 8 نسخ متشابهة 

ايضا فى التقرير الذى ستتم طباعتة يتم ترقيم رقم الصفحة مع كل نسخة بالشكل الاتى ( 1 من 8 ) - ( 2  من 8 ) - ( 3 من 8 ) لنفس الصفحة 

شاكر لكم جهدكم ومساعدتكم 

master card.rar

[esam munir]

اشكرك السيد ابو خليل لتعديل اسم الموضوع بشكل اسهل واكثر تحديدا 

وأتمنى المساعدة للإنتهاء من قاعدة البيانات الخاصة بى حيث ان المرفق هو ملف بسيط للإسترشاد بة وتوصيل الفكرة 

[Eng.Qassim]

ضع الكود التالي في زر امر الطباعة .. اما ترقيم الصفحات فبالاساس انت وضعت الترقيم

DoCmd.SelectObject acReport, "master card query", True
DoCmd.PrintOut , , , , Me.pallet_order.Value

 

[esam munir]

مشكور م. قاسم ولكن حضرتك حليت لى مشكلة طباعة عدد نسخ مطابق لى الرقم الموجود فى حقل ( pallet order ) لكن عند الطباعة اجد ان ال 8 نسخ يوجد فى تذييل الصفحة ( page 1 of 1 )

وكل ما اريدة بعد حل الجزئية الاولى مشكورا هو ان يكون فى تذييل صفحة التقرير للنسخة الاولى ( page 1 of 8 ) والنسخة الثانية ( page 2 of 8 ) والنسخة الثالثة ( page 3 of 8 ) وهكذا حتى النسخة الثامنة ( page 8 of 8 ) حيث ان عدد النسخ هو 8 نسخ 

اتمنى ان اكون قدرت اوضح المطلوب وشاكر للجميع الإهتمام 

ومن الممكن من وجهة نظرى حل اخر ولكن لا أعرف كيفية تطبيقة وهو انشاء text box يظهر فية رقم النسخة

فى النسخة الاولى رقم 1

فى النسخة الثانية رقم 2

فى النسخة الثالثة رقم 3

وهكذا حتى انتهاء ال 8 نسخ 

[ابوخليل]

تفضل حسب طلبك

حقل في تذييل الصفحة يظهر رقم النسخة

Dim i As Integer
countPrint = 1
Do Until i = Me.[pallet order].Value
   i = i + 1
    DoCmd.OpenReport "master card query", acViewNormal
countPrint = countPrint + 1
Loop

 

master card2.rar

[esam munir]

فى الحقيقة حضرتك السيد ابو خليل حليت لى مشكلتى بكل سهولة وتماما مثل ما اريد 

كل الشكر والتقدير لحضرتك والشكر موصول ل م . قاسم 

جزاكم الله خير