Öffnen einer Word-Datei und Drucken per Excel-Makro
Schritt-für-Schritt-Anleitung
Um eine Word-Datei in Excel zu öffnen und diese über einen bestimmten Drucker zu drucken, kannst Du ein Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du das Makro erstellen möchtest.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden Code ein:
Sub Schaltfläche1_BeiKlick()
Const ZIELDRUCKER As String = "\\BRMBLGP7A\P1547_T5308R auf Ne06:"
Dim appWord As Object
Dim doc As Object
Dim AktuellerDrucker As String
' Bisher eingestellten Drucker merken...
AktuellerDrucker = ActivePrinter
' Zieldrucker setzen...
appWord.ActivePrinter = ZIELDRUCKER
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\test.doc")
doc.PrintOut Copies:=4 ' Druckt am nun gesetzten Drucker
Application.Wait Now + TimeSerial(0, 0, 5)
appWord.Quit
' Drucker auf Ausgangswert zurücksetzen
ActivePrinter = AktuellerDrucker
Set doc = Nothing
Set appWord = Nothing
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Füge einen Button hinzu, um das Makro zu starten. Klicke mit der rechten Maustaste auf den Button und wähle Makro zuweisen, um das gerade erstellte Makro zu verknüpfen.
Jetzt kannst Du mit einem Klick auf den Button die Word-Datei öffnen und drucken.
Häufige Fehler und Lösungen
-
Fehler: Drucker wird nicht gewechselt
- Stelle sicher, dass der Druckername im Code korrekt ist. Der Drucker muss genau so angegeben werden, wie er in Windows angezeigt wird.
-
Fehler: Word-Datei öffnet sich nicht
- Überprüfe den Pfad zur Word-Datei. Vergewissere Dich, dass der Pfad korrekt ist und die Datei existiert.
-
Fehler: Makro funktioniert nicht
- Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu
Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere Makros.
Alternative Methoden
Falls Du keine VBA-Makros verwenden möchtest, kannst Du auch manuell die Word-Datei öffnen und drucken:
- Öffne die Word-Datei direkt.
- Wähle den gewünschten Drucker aus und drucke die Datei.
Diese Methode ist jedoch weniger automatisiert und erfordert mehr Schritte.
Praktische Beispiele
Angenommen, Du möchtest ein Dokument namens "Bericht.doc" drucken. Hier ist ein angepasstes Beispiel:
Sub BerichtDrucken()
Const ZIELDRUCKER As String = "\\BRMBLGP7A\P1547_T5308R auf Ne06:"
Dim appWord As Object
Dim doc As Object
Dim AktuellerDrucker As String
AktuellerDrucker = ActivePrinter
appWord.ActivePrinter = ZIELDRUCKER
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\Bericht.doc")
doc.PrintOut Copies:=1
appWord.Quit
ActivePrinter = AktuellerDrucker
Set doc = Nothing
Set appWord = Nothing
End Sub
Tipps für Profis
- Verwende Konstanten für Druckernamen, um den Code übersichtlicher zu gestalten.
- Nutze
On Error-Fehlerbehandlung, um das Makro robuster zu machen.
- Teste den Code in einer sicheren Umgebung, bevor Du ihn produktiv einsetzt.
FAQ: Häufige Fragen
1. Wie öffne ich ein .doc-Dokument?
Verwende den Befehl Set doc = appWord.Documents.Open("C:\DeinDokument.doc") im Makro.
2. Kann ich das Makro in Excel 2013 verwenden?
Ja, das Makro sollte in Excel 2013 sowie in späteren Versionen funktionieren, solange VBA-Makros aktiviert sind.