وعليكم السلام استاذنا الفاضل عبد الله الصاري
عمل اكثر من رائع ويفي بالغرض وفقكم الله واعطاكم الصحة والعافية
لكن انا غيرت بالمدى للطباعة في السطر المؤشر بالاحمر حيث في البداية كان يطبع فقط المسلسل بعد التغيير اصبح يطبع كافة البيانات وحتما وقع سهوا من قبلكم
ولي طلب اذا كان عدد الفصول اكثر من اثني عشر فصلا ماهي الاضافة التي اضيفها ليعمل اذا زاد العدد عن العدد المحدد في الكود
اقصد ماهية الاضافة للكود وما الذي اغيره او اضيفه بالكود
حفظكم الله ورعاكم ورزقكم
لمن يريد ان يستخدم الكود الموجود بالملف عليه تغيير المدى المؤشر بالاحمر 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