Seitenumbruch nicht beachten
26.01.2007 09:00:29
Gesa
habe nachfolgendes Makro.
Dieses soll alle Zeilen Drucken bei denen in der Spalte T eine 1 steht (klappt auch super).
Wenn allerdings ab der Zeile T75 nur der Wert 0 steht und in der Zeile T76 ein Seitenumbruch steht, druckt er diesen mit aus.
Für Hilfe wäre ich dankbar.
Schöne Grüße
Gesa S.
Sub Druck_Ergebnisbericht()
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 20)) Or Cells(iRow, 20).Value = 0)
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub