Leere Zeilen für den Ausdruck ausblenden

In lose aufgebauten, durch viele Leerzeilen getrennten Tabellen fällt die Orientierung oft leichter, als in dicht gedrängten Arbeitsblättern. Auf dem Ausdruck stören die freien Bereiche jedoch meistens. Mit dem im Kasten abgedruckten Makro können Sie dafür sorgen, daß die leeren Zeilen für den Ausdruck verborgen und dann wieder dargestellt werden.

Makrolisting zum Verhindern des Ausdrucks leerer Zeilen

Sub DruckZeilen()

Application.ScreenUpdating = False
Dim TB As Worksheet, i%, lZeile%
Set TB = worksheets(“Tabelle1”)
lZeile = TB.[a16384].End(xlUp).Row
For i = 1 To lZeile
If IsEmpty(TB.Cells(i, 1)) Then TB.Rows(i).EntireRow.Hidden = True
Next i
TB.PrintOut
TB.Range(TB.Cells(1, 1), TB.Cells(lZeile, 1)).EntireRow.Hidden = False
End Sub