محتاجين كود مختصر لطباعة مدى معين وبشرط عدم طباعة الصفوف الفارغة

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

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

نرجوا التكرم بالمساعدة في الملف المرفق

تحياتي لكم

عدم طباعة الصفوف الفارغة.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا

Private Const M As String = "C1:C120"

Sub MyPrnt()

Dim cl As Range

Set MyRng = Range(M)

For Each cl In MyRng

If IsEmpty(cl) Then cl.EntireRow.Hidden = True

Next

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$120"

    Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

   MyRng.EntireRow.Hidden = False

End Sub

[أبو محمد عباس]

السلام عليكم

الاستاذ والاخ ابو احمد المحترم جزاك الله خيرا كود رائع قمت بتجربته وفيه قمة الابداع

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

[عبدالله المجرب]

السلام عليكم

الاستاذ والاخ ابو احمد المحترم جزاك الله خيرا كود رائع قمت بتجربته وفيه قمة الابداع

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

حياك الله اخي عباس

شكراً على مداخلتك وتعليقك