Druckerfach in Excel per VBA auswählen
Schritt-für-Schritt-Anleitung
Um ein alternatives Druckerfach per VBA auszuwählen, kannst du folgende Schritte befolgen:
-
Ersatzdrucker erstellen: Lege in Windows einen neuen Drucker mit dem gewünschten Druckfach an, z.B. "Kyocera_Fach_2".
-
Namen des aktiven Druckers auslesen: Nutze den Befehl ?ActivePrinter im Direktfenster, um den aktuellen Druckernamen auszulesen.
-
VBA-Code erstellen: Erstelle ein neues Modul in Excel und füge den folgenden Code ein:
Sub Druck()
Dim actPrinter$
actPrinter = ActivePrinter
Tabelle1.PrintOut ActivePrinter:="Kyocera_Fach_2 auf Ne03:"
ActivePrinter = actPrinter
End Sub
-
Druckauftrag ausführen: Führe das Makro aus, um den Druckvorgang mit dem definierten Druckfach zu starten.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um das Druckerfach auszuwählen, besteht darin, den Drucker direkt in den Druckeinstellungen von Windows zu konfigurieren. Hier kannst du die Standardeinstellungen für das gewählte Druckfach festlegen, sodass der Druckauftrag automatisch an das gewünschte Fach gesendet wird.
Praktische Beispiele
Hier ist ein Beispiel, wie du ein Druckfach für verschiedene Dokumente steuern kannst:
Sub DruckUebersicht()
Dim actPrinter$
actPrinter = ActivePrinter
' Druckauftrag für das erste Druckfach
Tabelle1.PrintOut ActivePrinter:="Kyocera_Fach_1 auf Ne03:"
' Druckauftrag für das zweite Druckfach
Tabelle2.PrintOut ActivePrinter:="Kyocera_Fach_2 auf Ne03:"
ActivePrinter = actPrinter
End Sub
In diesem Beispiel werden zwei Tabellen ausgedruckt, jeweils aus unterschiedlichen Druckfächern.
Tipps für Profis
- Benennung: Gib deinen Ersatzdruckern sprechende Namen, die direkt auf das Druckfach hinweisen, um Verwirrung zu vermeiden.
- Testdruck: Teste den Druckauftrag mit einer kleinen Datenmenge, bevor du große Dokumente druckst.
- Fehlerprotokollierung: Implementiere eine einfache Fehlerprotokollierung im Code, um Probleme beim Drucken schnell zu identifizieren.
FAQ: Häufige Fragen
1. Kann ich mehrere Drucker mit verschiedenen Fächern ansteuern?
Ja, du kannst mehrere Ersatzdrucker erstellen und in deinem VBA-Code entsprechend ansteuern.
2. Ist diese Methode in allen Excel-Versionen anwendbar?
Die beschriebenen VBA-Methoden sind in Excel 2010 und späteren Versionen verfügbar. Achte darauf, dass deine Excel-Version VBA unterstützt.