Druck über UserForm
06.08.2006 18:25:13
Heinz
Habe unteren Code zum ausdrucken verschiedener Blätter über eine UserForm.
Könnte man den Code nicht anders gestalten.
Den ich habe die Blätter versteckt beim Druck werden zuerst alle Blätter sichtbar dann druck und dann Blätter wieder versteckt.
Ist ein wenig unübersichtlich das ganze.
Danke & Gruss, Heinz
Private Sub CheckBox10_Click()
'Dim Worksheet As Object
'Blattnamen jeweils anpassen!
Sheets("311").Visible = True
If CheckBox1 Then Sheets("311").PrintOut
Sheets("311").Visible = False
Sheets("312A").Visible = True
If CheckBox2 Then Sheets("312A").PrintOut
Sheets("312A").Visible = False
Sheets("312B").Visible = True
If CheckBox2 Then Sheets("312B").PrintOut
Sheets("312B").Visible = False
Sheets("321").Visible = True
If CheckBox4 Then Sheets("321").PrintOut
Sheets("321").Visible = False
Sheets("322").Visible = True
If CheckBox5 Then Sheets("322").PrintOut
Sheets("322").Visible = False
Sheets("331").Visible = True
If CheckBox6 Then Sheets("331").PrintOut
Sheets("331").Visible = False
Sheets("332").Visible = True
If CheckBox7 Then Sheets("332").PrintOut
Sheets("332").Visible = False
Sheets("333").Visible = True
If CheckBox8 Then Sheets("333").PrintOut
Sheets("333").Visible = False
If CheckBox9 = True Then
Dim anzahl As Integer
Dim start As Integer
Dim i As Integer 'Wählt alle Tabellenblätter vom 3. bis zum letzten aus
start = 3
anzahl = Sheets.Count
For i = start To anzahl
Sheets(i).Visible = True
Next i
Dim blaetter
Dim B As Integer
blaetter = Array("311", "312A", "312B", "321", "322", "331", "332", "333")
For B = 0 To UBound(blaetter)
Sheets(blaetter(B)).PrintOut
Next
Dim anzahl2 As Integer
Dim start2 As Integer
Dim i2 As Integer 'Wählt alle Tabellenblätter vom 3. bis zum letzten aus
start2 = 3
anzahl2 = Sheets.Count
For i2 = start2 To anzahl2
Sheets(i2).Visible = False
Next i2
End If
Unload Me
End Sub