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
Sheets(Array("Tabelle1", "Tabelle3")).Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"