Hoe lege rijen te stoppen bij het afdrukken van een werkblad?

Als uw werkblad meerdere lege rijen bevat, worden normaal gesproken ook de lege rijen afgedrukt als u het blad afdrukt. Als u het werkblad afdrukt en de lege rijen negeert, kan dit papier voor ons besparen. Hoe kunt u in dit geval lege rijen stoppen bij het afdrukken van een werkblad?

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

---

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

Met de volgende VBA-code kunt u het werkblad zonder lege rijen afdrukken, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stop lege rijen tijdens 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 F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt afdrukken, zie screenshot:

4. En klik vervolgens op OK, en het door u geselecteerde bereik is meteen afgedrukt zonder de lege rijen.