Aktiven Drucker setzen

Zum Ausdruck auf einen beliebigen Drucker ist es in Excel zuweilen notwendig, den aktiven Drucker zu ändern. Zur Änderung des Druckers ist allerdings die Angabe des Port erforderlich. Sofern die Anwendung nur auf einem PC laufen soll und sich an der Druckerinstallation nichts ändert, kann man zum Test mit VBA-Mitteln den Port mit Application.ActivePrinter feststellen. Dazu ist vorab der gewünschte Drucker zu aktivieren.
Nach Änderungen am System oder bei Ausführung auf anderen PC kann für den Drucker ein anderer Port ausschlaggebend sein. Mit der API-Funktion GetProfileString lassen sich Informationen über die verfügbaren Drucker auslesen. Nähere Informationen zur Funktion finden sich bei Microsft, siehe auch die Links im einleitenden Teil zu den API.

Zum Beispielcode: Aktiven Drucker setzen - Aufruf