2-facher Ausdruck VBA

Question

Hallo @all,

Ich brauch euch noch mal!

Hab nen VBA- code geschrieben und weiß nicht wie ich mit nur einem Klick einen 2-fach Druck hinbekomme.
Soll heißen ich klicke auf einen Commandbutton und die ausgewählte Tabelle soll gleich 2 mal ausgedruckt werden.
Hier mal mein bisheriger Code:

Private Sub Palettenschein_Click()
With Sheets("Palettenschein")
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$1:$I$56"
'Drucken:
.PrintOut
End With

End Sub

wie und wo bekomme ich nun in diesen Code die Anzahl von seiten rein?
Ich möchte auch nicht erst den Druckerdialog öffnen lassen, sonder es soll via Klick gleich 2 mal ausgedruckt werden.

Weiß einer Hilfe?

Danke & Gruß Benjamin

Answer 1

Hallo Benjamin,

erstelle auf dem relevanren Arbeitsblatt einen CommandButton und weise ihm diesen Code zu.

Option Explicit

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$56"
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub

Gruß
Rainer

Answer 2

Hallo,

müsste mit einem 2. PrintOut auch gehen, schon versucht?

Gruß

Helmut

Answer 3

Hallo Benjamin.

da hilft der Makrorecorder
PrintOut Copies:=1
vielleich noch ein Komma zwischen?

Gruß Hajo