كود طباعة الصفحات التي تحتوي فقط على بيانات (طباعة الكل) وإهمال الصفحات الفارغة

[Salem2020]

السلام عليكم

الملف المرفق يحتوي على ثلاثة شيتات

يهمنا الشيت الأخير (ش1 1) وهو عبارة عن شهادة تستقي بياناتها من الشيت الثاني (م1 1) عبر القائمة المنسدلة (سجل الطالب) وقمت بعمل زر ازرق يقوم بطباعة جميع شهادات الطلاب دفعة واحدة.

المشكلة هي أن الكود الخاص بطباعة الكل يقوم بطبع جميع محتويات القائمة المنسدلة بحسب الصفوف في الشيت (م1 1) وعددها (30) وأنا عندي فقط (18) طالب فكيف أجعل الكود يتوقف عند آخر طالب في الكشف مهما كان عدد الطلاب فيه ولا يواصل الطباعة حتى النهاية لأن ذلك يترتب عليه  طباعة شهادات فارغة لا تحوي بيانات. ... ارجوا مساعدتي في حل هذه المشكلة ولكم كل الود والاحترام

School.xlsm

[lionheart]

Put the following line before the line of Next 

 Next

Should be

    If [E13] = 0 Then Exit For
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
 Next

 

[Salem2020]

احسنت جزاك الله خير .. تم عمل المطلوب بنجاح بعد عمل قص للكود من الاعلى والصاقة قبل فقرة Next حيث أنني في المرة الاولى تركته وقمت بعمل نسخة منه فقط 

الف مليون شكر لك اخي الكريم 

دمت في رعاية الله وحفظه 

[lionheart]

Glad you can solve it

[مصطفى محمود مصطفى]

احسنتم استاذنا الفاضل

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

وفقكم الله وزادكم من فضله

[lionheart]

It is supposed that it prints each certificate just once not twice

[مصطفى محمود مصطفى]

احسنتم استاذنا الفاضل

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

لكم تحياتي