Wie stoppe ich leere Zeilen beim Drucken von Arbeitsblättern?

Wenn Ihr Arbeitsblatt mehrere leere Zeilen enthält, werden beim Drucken des Blattes normalerweise auch die leeren Zeilen gedruckt. Wenn Sie das Arbeitsblatt drucken und die leeren Zeilen ignorieren, können Sie Papier für uns sparen. Wie können Sie in diesem Fall leere Zeilen beim Drucken eines Arbeitsblatts stoppen?

Stoppen Sie leere Zeilen, wenn Sie ein Arbeitsblatt mit VBA-Code drucken

---

Stoppen Sie leere Zeilen, wenn Sie ein Arbeitsblatt mit VBA-Code drucken

Mit dem folgenden VBA-Code können Sie das Arbeitsblatt ohne leere Zeilen drucken. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Stoppen Sie leere Zeilen beim Drucken:

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie drucken möchten. Siehe Abbildung:

4. Und dann klick OKund Ihr ausgewählter Bereich wurde sofort ohne die leeren Zeilen gedruckt.