BeforePrint mit Userform
26.07.2004 16:01:08
Dominic
Ich habe leider ein Problem mit einer BeforePrint Ereignis.
Wenn der Tabellenname mit "Table " anfängt sollte eine Userform eingeblendet werden. Dort kann man eine Selektion machen welche Zeilen ausgedruckt werden sollten, alle anderen Zeilen sollten dann ausgeblendet und nach dem Drucken wieder eingeblendet werden.
Leider funkt. es bei mir nicht. Hier der Code weil der upload nicht funkt.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Right(ActiveSheet.Name, 6) <> "Table " Then
Exit Sub
End If
Cancel = True
UF_Print.Show
End Sub
Private Sub CB_Print_Click()
If ChB_DCF.Value = False Then
ActiveSheet.Rows(158).Hidden = True
End If
If ChB_EBIT.Value = False Then
ActiveSheet.Rows(74).Hidden = True
End If
If ChB_EBIT_M.Value = False Then
ActiveSheet.Rows(88).Hidden = True
End If
If ChB_EBITA.Value = False Then
ActiveSheet.Rows(46).Hidden = True
End If
If ChB_EBITA_M.Value = False Then
ActiveSheet.Rows(60).Hidden = True
End If
ActiveWindow.SelectedSheets.PrintOut
ActiveSheet.Rows.Hidden = False
End Sub