Word Dokument über Excel drucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Word Dokument über Excel drucken

15.09.2021 21:46:29

Oberschlumpf

Korrektur

15.09.2021 23:21:13

Oberschlumpf

AW: Korrektur

16.09.2021 17:06:50

Christian

AW: Korrektur

16.09.2021 22:53:03

Oberschlumpf

AW: Korrektur

18.09.2021 07:37:48

Christian

Hi Christian,
hier, bitte schön


Option Explicit
Sub sbWordPrint()
Const lcstrPath As String = "D:\Herber\Word\" 'Pfad anpassen; letztes Zeichen MUSS ein Backslash sein!
Dim larstrFile() As String, lstrDir As String, liIdx As Integer
Dim objWord As Object
ReDim larstrFile(0)
lstrDir = Dir(lcstrPath & "*.doc*")
Do Until lstrDir = ""
larstrFile(UBound(larstrFile)) = lcstrPath & lstrDir
ReDim Preserve larstrFile(UBound(larstrFile) + 1)
lstrDir = Dir
Loop
ReDim Preserve larstrFile(UBound(larstrFile) - 1)
Set objWord = CreateObject("word.Application")
For liIdx = 0 To UBound(larstrFile)
objWord.wordbasic.disableautomacros 1
objWord.documents.Open larstrFile(liIdx)
objWord.PrintOut Filename:=larstrFile(liIdx)
Next
Set objWord = Nothing
End Sub

Beachte den Kommentar im Code.
In dem von mir gewählten Verzeichnis sind 3 Word-Dateien gespeichert.
Eine Datei enthält ein Word-Makro.
Mit dem Befehl ...disableautomacros 1 werden vor jedem Öffnen einer Word-Datei alle Word-Makros deaktiviert.
Direkt nach dem Öffnen jeder Word-Datei (ohne diese in Word anzuzeigen) wird jede Word-Datei auf dem in Windows als Standarddrucker definierten Drucker ausgedruckt.
Die Besonderheit auf meinem PC:
Aktuell habe ich keinen "echten" Drucker. Als Standarddrucker ist nur ein PDF-Printer eingerichtet.
Daher dachte ich eigentlich, dass ich mit dem Erstellen+Ausführen des obigen Codes keinen Erfolg haben werde.
Aber...doch...nach jedem Druckauftrag erfolgt vom PDF-Printer erst mal die Frage "Wo soll die PDF-Datei gespeichert werden?".
Und nach Auswahl meines Wunsch-Ordners wurden alle 3 Word-Dateien mit dem PDF-Printer auch aus Excel heraus gedruckt, bzw als PDF-Dateien gespeichert.
Hilfts?
Ciao
Thorsten

For liIdx = 0 To UBound(larstrFile) objWord.wordbasic.disableautomacros 1 objWord.documents.Open larstrFile(liIdx) objWord.PrintOut Filename:=larstrFile(liIdx) objWord.documents(larstrFile(liIdx)).Close SaveChanges:=False Next

Hi Christian
die Version ist diesmal egal. Ich arbeite auch mit MSO 2016. Also nutzen wir beide die gleiche Version.
Da ich auf meinem PC keine Probleme finden kann, die Datei funktioniert hier problemlos, ich hab ja sogar sicherheitshalber die Word-Makros ausgeschaltet, kann ich gerad nur vermuten, dass vielleicht dein Speicherpfad "komische Zeichen" enthält, oder auch die Dateinamen selbst enthalten "komische Zeichen".
noch ne Idee:
Der Ordner mit den Word-Dateien befindet sich doch - lokal - auf deinem Computer und nicht auf einem Sharepoint oder sonstigem Netzlaufwerk, oder?
Na ja, ohne deinen Computer + Umgebung sehen zu können, kann ich im Moment nur raten, wieso das bei dir nicht funktioniert.
Ciao erst mal - mal sehen wie dein neues Feedback ist
Thorsten

Beliebteste Forumthreads (12 Monate)

Word Dokument über Excel drucken

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

182 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word Dokument über Excel drucken

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

182 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread