florian86
Aug 23, 2018
view1916
view7
0
Goto Top

Nach öffnen von Word Dokument bestimmte Dateien drucken

GermansolvedQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 384204

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

Printed on: April 25, 2024 at 12:04 o'clock

7 Comments
Latest comment
Goto Top
Member: Penny.Cilin
Penny.Cilin Aug 23, 2018 at 08:12:24 (UTC)
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
Member: Florian86
Florian86 Aug 23, 2018 at 08:54:46 (UTC)
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
Member: colinardo
Solution colinardo Aug 23, 2018, updated at Oct 08, 2019 at 08:12:05 (UTC)
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
Member: Florian86
Florian86 Oct 08, 2019 at 07:58:54 (UTC)
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
Member: colinardo
colinardo Oct 08, 2019 updated at 08:11:44 (UTC)
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
Member: Florian86
Florian86 Oct 08, 2019 at 08:50:36 (UTC)
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
Member: colinardo
Solution colinardo Oct 08, 2019, updated at Oct 11, 2019 at 09:10:12 (UTC)
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
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments