Sub Drucken()
Dim iRowL As Long, iRow As Long
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 3)) Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub
Sub Drucken()
Dim LoI As Long
For LoI = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
' Zeile ausblenden
Rows(LoI).EntireRow.Hidden = Application.WorksheetFunction.CountA(Range(Cells(LoI, 1), _
Cells(LoI, 8))) = 0
Next LoI
ActiveSheet.PrintPreview
'oder gleich drucken:
'ActiveSheet.PrintOut
Cells.EntireRow.Hidden = False
End Sub
Sub tt()
Dim i As Long, r As Range
With ActiveSheet
For i = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.CountA(.Range(.Cells(i, 1), .Cells(i, 30))) = 0 Then
If r Is Nothing Then
Set r = .Cells(i, 1)
Else
Set r = Union(r, .Cells(i, 1))
End If
End If
Next
If Not r Is Nothing Then r.EntireRow.Hidden = True 'ausblenden
.PrintOut 'Drucken
.Rows.Hidden = False 'wieder einblenden
End With
End Sub