Blatt mehrmals drucken
19.09.2004 10:21:12
Thomas
ich möchte gern das ich in einer Userform die Anzahl der Kopieen angeben kann die ich ausdrucken möchte. Die Userform enthält dazu Textboxen (TextBox1 & 2)und Checkboxen. Wie kann ich es anstellen das ich die Anzahl an Kopieen drucke die in der entsprechenden Textbox stehen?
Hier mein Code für einmal drucken.
Private Sub CommandButton1_Click()
On Error GoTo fehler
If CheckBox1 = Enabled Then Worksheets("Freiliste").PrintOut
If CheckBox2 = Enabled Then Worksheets("Berechnung").PrintOut
MsgBox "Die ausgewählten Blätter werden gedruckt."
Unload Me
GoTo ende
fehler:
MsgBox "Es ist kein Drucker installiert."
ende:
End Sub
Vielen Dank für die Hilfe.