Gruppe
Druck
Problem
Wie kann ich die Anzeige aller leeren Zeilen beim Drucken unterdrücken?
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