Doppelseitig drucken, normal und in VBA
06.06.2004 10:44:06
Oswald
könnt Ihr mir wieder mal helfen?
Ich müsste aus Excel doppelseitig drucken aus zwei Tabellenblättern. Wenn ich diese mit Shift markiere und dann die Option "Beidseitig drucken" in den Eigenschaften des Druckers anwähle hat es zwei mal geklappt dann aber nicht mehr. Mir ist aber nicht klar warum?
Außerdem hätte ich da noch ein Makro wo es auch nicht geht. Vielleicht kann mir da ja auch noch jemand helfen.
Hier ist es:
Public <pre>
Sub Doppelseitig()
Dim r2 As Integer
Sheets(Array("Vorderseite", "Rückseite 1")).Select
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Abfrage ob Rückseite2 beschrieben
If Not Worksheets("Rückseite 2").Cells(3, 2).Value > "" Then GoTo ende
'Rückseite2 drucken
r2 = MsgBox("Soll die Rückseite 2 gedruckt werden?", vbYesNo, "Drucken der Abrechnung")
If r2 = 6 Then ActiveWorkbook.Worksheets("Rückseite 2").PrintOut
ende:
End Sub</pre>
Hoffe wieder mal auf eure Hilfe, im vorraus vielen Dank.
Gruß
Oswald