الاستغناء عن الصفوف الفارغة الجزء الأول

الاستغناء عن الصفوف الفارغة

الطباعة

Code VBA Excel To Hide empty rows while printing

كثيرا ما نواجه مشكلة أثناء الطباعة وخاصة لو لدينا متغيرات كثيرة تحدث
فعلى سبيل المثال
لو لدينا فاتورة بيع مصممه على ملف اكسل ونرغب اثناء الطباعة ان نستغنى عن الصفوف الفارغة
أى لا تظهر اثناء الطباعة
لأنه بطبيعة الحال الفاتورة تتغير بياناتها وعدد الصفوف من فاتورة الى أخري

فإليك الشفرة التالية ، التى توفر لك الوقت ، وتقوم بالنيابة عنك فى اخفاء تلك الصفوف اثناء الطباعة مع عودة قالب الفاتورة الى شكله الطبيعي بعد الطباعة

الشفرة كاملة كالتالي

Sub MZM_Print()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

HIDE_BLANK
ActiveSheet.PrintPreview
UNHIDE_BLANK
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
Sub p()
HIDE_BLANK
ActiveSheet.PrintOut
UNHIDE_BLANK
End Sub
 Sub HIDE_BLANK()
 
    ActiveSheet.Range("$B$10:$F$82").AutoFilter Field:=1, Criteria1:="<>"
    Range("B10").Select
End Sub
Sub UNHIDE_BLANK()
 
    ActiveSheet.Range("$B$10:$F$82").AutoFilter Field:=1
        Selection.AutoFilter

    Range("B10").Select
End Sub

قم بإضافة الكود أعلاه داخل Module
ثم قم بربط الكود بأى زر أو Shape داخل شيت الفاتورةأو أى كان  بإسم الكود ((MZM_Print))
ثم قم بتجربة الكود

تلميحات
* يجب تغيير نطاق الطباعة  Print_Area
  واجعله كالتالي   invoice!$B$1:$F$87=
  هذا متوافق مع الشفرة أعلاه
  فى حالة تغيير النطاق يجب تغيير نطاق الطباعة أى إعادة تعيين نطاق الطباعة لتتوافق الشفرة مع النموذج الذى ترغب فيه

* النطاق الموجود بالشفرة هو ("$B$10:$F$82")
   اذا أردت تطبيق الشفرة على اى مستند آخر يجب أن تقوم بتغيير هذا النطاق لكى يتوافق مع المستند الذى ترغب فى التطبيق عليه