طباعة كل مرحلة واخفاء الصفوف الفارغة لكل مرحلة

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

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

الاساتذة الكرام وفقكم الله ورعاكم

لدي هذه الاستمارة  بها كود يطبع جميع الفصول الموجودة بشكل ممتاز لكن هناك مشكلة عند تنفيذ الكود يجب عليّ الاختيار اولا الفصل الذي به اكثر عدد من البقية  لان الكود سيخفي بقية الصفوف اعتمادا على اول فصل موجود قبل تنفيذ الكود ويعمل على طباعة بقية الفصول استنادا الى اكبر عدد وهذا احيانا يكون اكبر عدد خمسين او اكثر مثلا ويكون  واقل عدد 20 او 25 هنا ستكون صفوف كثيرة غير مخفية عند الطباعة  للعدد الاقل ما يقا رب 23 صف او اكثر فارغ .

السؤال هل يمكن الحصول على كود يقوم باخفاء الصفوف الزائدة لكل مرحلة اولا باول  ومن ثم طباعتها اقصد ان تكون الصفوف التي تطبع فقط التي بها اسماء لكل مرحلة بالاضافة الى تذييل الصفحة في الورقة الاخيرة سواء بها اسماء او لايوجد بها اسماء المهم اخفاء الصفوف الفارغة لكل مرحلة عند الطباعة 

تحياتي لكم مع وافر احترامي

طباعة الكل.xls

[عبدالله الصاري]

السلام عليكم

اخي الفاضل

كود بدائي ولكنه يقوم بالواجب ان شاء الله.

طباعة_الكل.xls

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

وعليكم السلام استاذنا الفاضل عبد الله الصاري

عمل اكثر من رائع ويفي بالغرض وفقكم الله واعطاكم الصحة والعافية

لكن انا غيرت بالمدى للطباعة في السطر المؤشر بالاحمر حيث في البداية كان يطبع فقط المسلسل بعد التغيير اصبح يطبع كافة البيانات وحتما وقع سهوا من قبلكم

ولي طلب اذا كان عدد الفصول اكثر من اثني عشر فصلا ماهي الاضافة التي اضيفها ليعمل اذا زاد العدد عن العدد المحدد في الكود

اقصد ماهية الاضافة للكود وما الذي اغيره او اضيفه بالكود

حفظكم الله ورعاكم ورزقكم

لمن يريد ان يستخدم الكود الموجود بالملف عليه تغيير  المدى المؤشر بالاحمر  ActiveSheet.PageSetup.PrintArea = "b3:b117"    الى   b3:p117

Sub pp()
    On Error Resume Next
 Cells.EntireRow.Hidden = False
    
        For Each Cell In Range("b9:b117")
        If Cell.Value = "" Then Cell.EntireRow.Hidden = True
    Next
   ' ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.PageSetup.PrintArea = "b3:p117"
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

تم تعديل يوليو 31, 2019 بواسطه مصطفى محمود مصطفى

[عبدالله الصاري]

السلام عليكم

عذرا على الخطأ في كود الطباعة وفعلتم حسنا في تصحيحكم

الطلب الثاني

  تم اضافة 8 فصول اخرى للكود اكتب اسم الفصل بدل النجوم فقط تم قم بالطباعة

طبعا الكود لا  يقوم بالطباعة في حال عدم وجود طلبة بالصف

اذا كان الامر غير واضح اكتب اسماء الفصول  وساضيفها لك بالكود

تحياتي

نسخة من طباعة_الكل.xls

 

 

   

 

 

 

 

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

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

الاستاذ الفاضل عبد الله الصاري

وفقكم الله وحفظكم من كل سوء

لكم وافر احترامي وتقديري