7
Nach öffnen von Word Dokument bestimmte Dateien drucken
Hallo,
ich möchte das nach dem öffnen einer Word Datei, bestimmte andere Dateien gedruckt werden.
Das heißt ich müsste in dem VBA Code aussagen, das bestimmte Dateien pdf, Word, Excel anhand eines Links
aufgerufen und gedruckt werden.
Kann mir hier jemand weiterhelfen?
MfG
Florian86
ich möchte das nach dem öffnen einer Word Datei, bestimmte andere Dateien gedruckt werden.
Das heißt ich müsste in dem VBA Code aussagen, das bestimmte Dateien pdf, Word, Excel anhand eines Links
aufgerufen und gedruckt werden.
Kann mir hier jemand weiterhelfen?
MfG
Florian86
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 384204
Url: https://administrator.de/contentid/384204
Ausgedruckt am: 19.11.2024 um 17:11 Uhr
7 Kommentare
Neuester Kommentar
Hallo,
hast Du denn schon irgendeinen VBA Code?
Wenn ja, dann stelle ihn bitte hier ins Forum.
Wenn nein, sollen wir diesen für Dich erstellen? Du weißt daß es hier im Forum Freiberufler gibt, welche dafür bezahlt werden sollten.
Gruss Penny
hast Du denn schon irgendeinen VBA Code?
Wenn ja, dann stelle ihn bitte hier ins Forum.
Wenn nein, sollen wir diesen für Dich erstellen? Du weißt daß es hier im Forum Freiberufler gibt, welche dafür bezahlt werden sollten.
Gruss Penny
Sub pdf()
Product = "C:\test.docx"
ShellExecute 0, "open", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "print", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "exit", Product, "", "", SHOWMAXIMIZED
End Sub
Product = "C:\test.docx"
ShellExecute 0, "open", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "print", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "exit", Product, "", "", SHOWMAXIMIZED
End Sub
Dim objShell as Object
Private Sub Document_Open()
Set objShell = CreateObject("Shell.Application")
arrDocs = Array("C:\test.xlsx", "D:\test2.pdf")
For Each doc In arrDocs
PrintDocument doc
Next
End Sub
Private Sub PrintDocument(strPath)
objShell.ShellExecute strPath, , , "print", 1
End Sub
Hallo Uwe,
es ist etwas länger her aber ich habe das Problem das immer mal Dokumente nicht gedruckt werden.
Es betrifft immer mal unterschiedliche Dokumente.
Hast du dafür eine Lösung?
MfG
Florian
es ist etwas länger her aber ich habe das Problem das immer mal Dokumente nicht gedruckt werden.
Dim objShell As Object
Private Sub Document_Open()
If MsgBox("sollen die Dokumente gedruckt werden", vbYesNo) = vbYes Then
Set objShell = CreateObject("Shell.Application")
arrDocs = Array("\\192.168.1.95\IFS_Werk_KH\Personal\Zusatzdokumente\Leitfaden für Mitarbeiter.docx", _
"\\192.168.1.95\IFS_Werk_KH\Labor\Reinigungspläne HYK AA\HYK AA 01 -Personal.docx", _
"\\192.168.1.95\IFS_Werk_KH\Labor\Reinigungspläne HYK AA\HYK AA 01 Anhang Anziehordnung.docx", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\Sonstiges\Organisation und Verantwortlichkeiten\Organisation Henglein GmbH & Co. KG.pdf", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\Sonstiges\Nachhaltigkeitskonzept\Unternehmensverantwortung.pdf", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\AA\AA 06A Color Code.pdf", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\Sonstiges\Grundriss-Pläne\Objektplan Henglein 01-2018.pdf", _
"\\192.168.1.95\Personalstammdaten\04 Einweisung neuer Mitarbeiter\Einweisung\Informationspflichten gem. Art 13 DS-GVO für Beschäftigte.pdf", _
"\\192.168.1.95\Personalstammdaten\04 Einweisung neuer Mitarbeiter\Zusatzdokumente\Qualitätsziele 2019 KH.pdf", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\AA\AA 06A Color Code.pdf", _
"\\192.168.1.95\IFS_Werk_KH\Personal\Zusatzdokumente\Telefonliste - Leitfaden.docx", _
"\\192.168.1.95\IFS_Werk_KH\Labor\Reinigungspläne HYK AA\HYK AA 01 -Personal.docx", _
"\\192.168.1.95\IFS_Werk_KH\Labor\Reinigungspläne HYK AA\HYK AA 01 Anhang Anziehordnung.docx", _
"\\192.168.1.95\IFS_Werk_KH\Bereichsübergreifende Dokumente\Sonstiges\Nachhaltigkeitskonzept\Unternehmensverantwortung.pdf", _
"\\192.168.1.95\Personalstammdaten\04 Einweisung neuer Mitarbeiter\Einweisung\Informationspflichten gem. Art 13 DS-GVO für Beschäftigte.pdf", _
"\\192.168.1.95\Personalstammdaten\04 Einweisung neuer Mitarbeiter\Zusatzdokumente\Qualitätsziele 2019 KH.pdf")
For Each doc In arrDocs
PrintDocument doc
Next
Else
MsgBox "Dokument wird geöffnet"
End If
End Sub
Private Sub PrintDocument(strPath)
objShell.ShellExecute strPath, , , "print", 1
End SubEs betrifft immer mal unterschiedliche Dokumente.
Hast du dafür eine Lösung?
MfG
Florian
Zu viele Dokumente auf einmal, dein Spooler läuft über und die Anwendungen die Drucken müssen kriegen die Masse nicht auf einmal gebacken. Füge eine Pause/Wait Aktion in der PrintDocument Prozedur nach dem ShellEx ein.
Grüße Uwe
Grüße Uwe
meinst du so? Da kommt bei mir immer ein Fehler
Private Sub PrintDocument(strPath)
objShell.ShellExecute strPath, , , "print", 1
Application.Wait "00:00:05"
End Sub
Nein, einfache Pause Prozedur
Benutzen dann mit Sekunden als Parameter
Sub pause(t As Integer)
start = Timer
Do While Timer < start + t
DoEvents
Loop
End Subpause 1
