florian86
Goto Top

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

Content-Key: 384204

Url: https://administrator.de/contentid/384204

Ausgedruckt am: 29.03.2024 um 14:03 Uhr

Mitglied: Penny.Cilin
Penny.Cilin 23.08.2018 um 10:12:24 Uhr
Goto Top
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
Mitglied: Florian86
Florian86 23.08.2018 um 10:54:46 Uhr
Goto Top
Sub pdf()
Product = "C:\test.docx"
ShellExecute 0, "open", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "print", Product, "", "", SHOWMAXIMIZED
ShellExecute 0, "exit", Product, "", "", SHOWMAXIMIZED
End Sub
Mitglied: colinardo
Lösung colinardo 23.08.2018, aktualisiert am 08.10.2019 um 10:12:05 Uhr
Goto Top
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
Grüße Uwe
Mitglied: Florian86
Florian86 08.10.2019 um 09:58:54 Uhr
Goto Top
Hallo Uwe,

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 Sub

Es betrifft immer mal unterschiedliche Dokumente.

Hast du dafür eine Lösung?

MfG

Florian
Mitglied: colinardo
colinardo 08.10.2019 aktualisiert um 10:11:44 Uhr
Goto Top
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
Mitglied: Florian86
Florian86 08.10.2019 um 10:50:36 Uhr
Goto Top
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
Mitglied: colinardo
Lösung colinardo 08.10.2019, aktualisiert am 11.10.2019 um 11:10:12 Uhr
Goto Top
Nein, einfache Pause Prozedur
Sub pause(t As Integer)
    start = Timer
    Do While Timer < start + t
        DoEvents
    Loop
End Sub
Benutzen dann mit Sekunden als Parameter
pause 1