Gruß
Sabine
Private Sub CommandButton1_Click()
Dim i!, e!, l!, s%
'e = Erste Zeile der Tabelle
'l = Letzte zeile der Tabelle
's = Spalte, in der die Zellen auf "" (leer)überprüft werden sollen
e = 1
l = 65000
s = 1
'Leere Zeilen ausblenden
For i = e To l
If Cells(i, s) = "" Then Rows(i).EntireRow.Hidden = True
Next
'Drucken
ActiveSheet.PageSetup.PrintArea = "A1:J65000"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Zeilen einblenden
For i = e To l
If Rows(i).Hidden = True Then Rows(i).EntireRow.Hidden = False
Next
End Sub