Excel Drucker Bezeichnung

wie finde ich die Druckerbezeichnungheraus welche ich in Excel Makros brauche um den Drucker anzustuern?
Ein Makro aufzeichnen und den Drucker im Drucken Dialog wechseln. Man kann dan auch abbrechen ohne zu drucken. Dann einfach den Code anschauen im VB Editor.

oder besser so:

Sub AktuellenDruckerAnzeigen()

MsgBox (Application.ActivePrinter)

End Sub

Sub AktuellenDruckerFestlegen()

Application.ActivePrinter = "Mega Laser 1815  auf Ne09:"

End Sub