Makro für Druckerabfrage

vielleicht könnt Ihr mir ja helfen, mit:

Application.ActivePrinter = "Acrobat Distiller auf Ne08:"
ActiveWindow.SelectedSheets.Printout Copies:=1,ActivePrinter:= "Acrobat Distiller auf Ne08:", Collate:=True

bewerkstelle ich den Ausdruck über den Acrobat Distiller.
Leider muß sich jeder Kollege aber den Distillerdrucker, oben Ne08 per Hand auf seinen Distillerdrucker einstellen.

Meine Frage jetzt, kann man diesen Drucker irgendwie auslesen?
Und wie wäre dies am einfachsten in das Makro einzubauen?

Schonmal danke im voraus für Eure Mühen.

Grüße
Falk