Zwei Seiten auf eine drucken per vba
stefanseevetal
Ich habe folgendes Problem:
Ich möchte per Klick auf einen Button zunächst einen Drucker auswählen können, dann sollen jeweils zwei Tabellenblätter (jedes Tabellenblatt hat einen Druckbereich von einer DIN A4-Seite) auf einer Seite ausgedruckt werden. Eigentlich klappt soweit alles (siehe Code unten), mir fehlt nur noch die Sache mit "zwei Tabellenblätter auf eine Seite" drucken. Kann man das auch per VBA vorgeben? Wie müsste der Code lauten?
Danke und Gruß,
Stefanseevetal
Sub SelectPrinter()
Dim sPrinter As String
Dim i As Integer
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
Application.ActivePrinter = sPrinter
For i = 5 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).PrintOut
Next i
End Sub