Warum geht das nicht mehr?
19.11.2003 21:19:04
Sascha
ich hab eine UserForm (Druckauswahl) über die mittels CheckBoxen (Seite1...) der Ausdruck zusammengestellt wird. Dieser Code funktioniert in einer Test.xls einwandfrei. In der eigendlichen xls leider nicht.
Ich muß alles per CheckBox auswählen, dann werden die Seiten nacheinander ausgedruckt. Wähle ich etwas ab, wird der Rest nicht mehr ausgedruckt. Warum?
Danke für die Hilfe
Sascha
Private Sub Drucken_Click()
If Not Druckauswahl.Seite1 Then beenden: Exit Sub
Call Druck1
If Not Druckauswahl.Seite2 Then beenden: Exit Sub
Call Druck2
If Not Druckauswahl.Seite3 Then beenden: Exit Sub
Call Druck3
If Not Druckauswahl.Seite4 Then beenden: Exit Sub
Call Druck4
If Not Druckauswahl.Seite5 Then beenden: Exit Sub
Call Druck5
End Sub
Sub beenden()
Unload Me
End Sub
Private Sub Ende_Click()
Unload Me
End Sub
Sub Druck1()
Application.ScreenUpdating = False
Sheets("Produktionsübersicht").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(A_S1), Collate:=True
Sheets("Produktionsübersicht").Select
Application.ScreenUpdating = True
End Sub
Sub Druck2()
Application.ScreenUpdating = False
Sheets("Aes Daten Tabelle").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(A_S2), Collate:=True
Sheets("Produktionsübersicht").Select
Application.ScreenUpdating = True
End Sub
Sub Druck3()
Application.ScreenUpdating = False
Sheets("OVS").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(A_S3), Collate:=True
Sheets("Produktionsübersicht").Select
Application.ScreenUpdating = True
End Sub
Sub Druck4()
Application.ScreenUpdating = False
Sheets("Vertragsübersicht").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(A_S4), Collate:=True
Sheets("Produktionsübersicht").Select
Application.ScreenUpdating = True
End Sub
Sub Druck5()
Application.ScreenUpdating = False
Sheets("Prov. LV").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(A_S5), Collate:=True
Sheets("Produktionsübersicht").Select
Application.ScreenUpdating = True
End Sub