Gruppe
Druck
Problem
Vor dem Druck der Tabelle soll ein Dialog zur Druckerauswahl aufgerufen werden. Nach dem Ausdruck wird der Drucker wieder zurückgesetzt.
StandardModule: Modul1
Sub SelectPrinter()
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
End Sub