Hoe voorkom je dat lege rijen worden afgedrukt in Excel?

Als je Excel-werkblad lege rijen bevat, worden deze meestal samen met de rest van je gegevens afgedrukt, wat papier en ruimte verspilt. Om dit te voorkomen, kun je een VBA-code gebruiken om automatisch lege rijen te verbergen voordat je afdrukt. Deze handleiding laat je zien hoe je deze code kunt instellen en gebruiken om alleen rijen met gegevens af te drukken, zodat je een schoner en efficiëntere afdruk krijgt.

Sluit lege rijen uit bij het afdrukken van een werkblad met VBA-code

Sluit lege rijen uit bij het afdrukken van een werkblad met VBA-code

Met de volgende VBA-code kun je het werkblad zonder lege rijen afdrukken, doe het volgende:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Voorkom lege rijen bij het afdrukken:

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. Druk vervolgens op de F5-toets om deze code uit te voeren. Er verschijnt een promptvenster waarin je wordt gevraagd het gegevensbereik te selecteren dat je wilt afdrukken. Zie screenshot:

4. Klik vervolgens op OK, en je geselecteerde bereik wordt onmiddellijk afgedrukt zonder de lege rijen.