ich habe eine Liste die ich wenn ich einen Button drücke drucken möchte! Hier möchte ich aber auch nur die Zeilen drucken die einen Inhalt haben! Die leeren sollen nicht gedruckt werden! Wie kann ich das über VBA machen?
gruß
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
Gruß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
Gruß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