Excel'de boş satırların yazdırılmasını nasıl engelleyebilirim?

Excel çalışma sayfanızda boş satırlar varsa, genellikle verilerinizin geri kalanıyla birlikte yazdırılırlar ve bu da kağıt ve boşluk israfına neden olur. Bunu önlemek için yazdırmadan önce boş satırları otomatik olarak gizlemek üzere bir VBA kodu kullanabilirsiniz. Bu kılavuz, yalnızca veri içeren satırları yazdırarak daha temiz ve verimli bir baskı çıktısı elde etmenizi sağlayacak bu kodu ayarlama ve kullanma konusunda size yol gösterecektir.

VBA kodu ile bir çalışma sayfası yazdırırken boş satırları hariç tutun

VBA kodu ile bir çalışma sayfası yazdırırken boş satırları hariç tutun

Aşağıdaki VBA kodu ile boş satırlar olmadan çalışma sayfasını yazdırabilirsiniz, lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Penceresine yapıştırın.

VBA kodu: Yazdırma sırasında boş satırları durdur:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Yazdırmak istediğiniz veri aralığını seçmenizi isteyen bir uyarı kutusu belirecektir. Ekran görüntüsüne bakın:

4. Ve ardından Tamam'a tıklayın ve seçtiğiniz aralık hemen boş satırlar olmadan yazdırılacaktır.