Wenn Sie mehrere Drucker an Ihrem PC angeschlossen haben (lokal, Netzwerk, etc.), ist es relativ aufwendig, vor dem Ausdruck eines Tabellenblattes den gerade aktiven Drucker zu wechseln. Das folgende Makro aber öffnet das Auswahlfenster für die verfügbaren Drucker und Sie können ganz bequem per Mausklick Ihren gewünschten Drucker aussuchen:
Sub ChangePrinter()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub