Gruppe
Druck
Bereich
Bereich
Thema
Leere Zeilen beim Drucken unterdrücken
Problem
Wie kann ich die Anzeige aller leeren Zeilen beim Drucken unterdrücken?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Start()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = False
iRowL = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountA(Rows(iRow)) = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintOut
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub