Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Blatt mehrmals drucken

Betrifft: Blatt mehrmals drucken von: Thomas
Geschrieben am: 19.09.2004 10:21:12

Hallo,
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.
  


Betrifft: AW: Blatt mehrmals drucken von: th.heinrich
Geschrieben am: 19.09.2004 11:08:00

hallo auch Thomas,

als ansatz aus der RECHERCHE.

https://www.herber.de/index.html?https://www.herber.de/forum/archiv/420to424/t423050.htm

hoffe es hilft weiter.

gruss thomas


  


Betrifft: AW: Blatt mehrmals drucken von: Thomas
Geschrieben am: 19.09.2004 11:32:53

Danke, das hat geholfen. Das war ja doch sehr einfach. Manchmal muss man eben nur auf die richtige Färte gebracht werden. Hier meine Lösung:

Private Sub CommandButton1_Click()
    Dim anzahl1, anzahl2
    anzahl1 = TextBox1
    anzahl2 = TextBox2
    On Error GoTo fehler
    If CheckBox1 = Enabled Then Worksheets("Freiliste").PrintOut Copies:=anzahl1
    If CheckBox2 = Enabled Then Worksheets("Berechnung").PrintOut Copies:=anzahl2
    MsgBox "Die ausgewählten Blätter werden gedruckt."
    Unload Me
    GoTo ende
fehler:
    MsgBox "Es ist kein Drucker installiert."
ende:
End Sub


Also vielen Dank.


  


Betrifft: danke fuer die rueckmeldung mt. von: th.heinrich
Geschrieben am: 19.09.2004 15:20:44

hallo Thomas,

freut mich das es geholfen hat, also das naechste mal zuerst selber suchen.

das ARCHIV enthaelt unschaetzbare werte ;-))

gruss thomas


 

Beiträge aus den Excel-Beispielen zum Thema "Blatt mehrmals drucken"