كود طباعة لجميع الشهادات مرة واحدة

[جمال احمد]

اريد من الزملاء الاعزاء المساعدة فى عمل كود طباعة لجميع الشهادات مرة واحدة

من فضلك طالما حجم الملف صغير , فلابد من رفعه بدون ضغط .وذلك تجنباً لعدم اهدار وقت الأساتذة , وبما انك تريد الحل والإجابة بالأكواد فكان عليك لزاما رفع الملف بإمتداد XLSM

بيان ناجح 6.xlsm

[الرائد77]

Sub Printg()

       Application.Calculation = xlAutomatic

        For J = [Y2] To [Y1]
        If J <= [Y1] Then
     
        ActiveSheet.PrintOut Copies:=1, Collate:=True
          End If
          
        Next
        
End Sub

 

بيان ناجح 6.xls

[الرائد77]

نفس ملفك المررفق.  ضع الكود في موديل جديد. 

[جمال احمد]

تم العمل ولكن بدون نتيجة تفضل

ارجو المعذرة اما اريد كود لطباعة جميع التلاميذ وشهاداتهم مرة واحدة

اريد كود لطباعة العدد الكلي للتلاميذ

وهذا الكود يطبع اول تلميذ فقط ويكرر شهادته

[بن علية حاجي]

السلام عليكم

تم تصويب الكود حسب الطلب...

بن علية حاجي

بيان ناجح 6.xlsm

[جمال احمد]

والله مش لاقى كلام اشكر بية الاستاذ العظيم على مجهوده بارك الله فيك دا المطلوب

وشكرى للجميع