كيفية إيقاف الصفوف الفارغة عند طباعة ورقة العمل؟

إذا كانت هناك عدة صفوف فارغة في ورقة العمل ، فعادة ، عند طباعة الورقة ، ستتم طباعة الصفوف الفارغة أيضًا. لطباعة ورقة العمل وتجاهل الصفوف الفارغة يمكن أن يوفر لنا الأوراق ، وفي هذه الحالة كيف يمكنك إيقاف الصفوف الفارغة عند طباعة ورقة عمل؟

أوقف الصفوف الفارغة عند طباعة ورقة العمل برمز VBA

---

أوقف الصفوف الفارغة عند طباعة ورقة العمل برمز VBA

باستخدام رمز فبا التالي ، يمكنك طباعة ورقة العمل بدون صفوف فارغة ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: أوقف الصفوف الفارغة عند الطباعة:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد طباعته ، انظر لقطة الشاشة:

4. ثم انقر فوق OK، وتمت طباعة النطاق المحدد مرة واحدة بدون الصفوف الفارغة.