Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 15:04:08 Holger
NotSolved
Blau Per Makro aus einem Ordner alle PDF Dateien drucken
 02.02.2024 19:07:05 ralf_b
NotSolved
03.02.2024 15:44:42 Holger
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
02.02.2024 19:07:05		 Views:
151		 Rating:
     
Antwort:
  Ja
Thema:
Per Makro aus einem Ordner alle PDF Dateien drucken

schönen gruß von Copilot KI. deine Frage dort in Kurzform eingegeben, lieferte diesen Code. Von mir ungetestet. Ich denke, da du deine Versuche nicht zeigen möchtest, hast du evtl auch gar keine.

Public Sub Drucke_Alle_PDF_Dateien_im_Ordner()
    Dim Ordner As String
    Dim PDFDateiname As String
    
    ' Passe den Ordnerpfad an
    Ordner = "C:\Dein\Ordner\Pfad\" ' Ändere dies nach Bedarf
    
    If Right(Ordner, 1) <> "\" Then
        Ordner = Ordner & "\"
    End If
    
    PDFDateiname = Dir(Ordner & "*.pdf", vbNormal)
    
    While Len(PDFDateiname) <> 0
        Drucke_PDF Ordner & PDFDateiname
        PDFDateiname = Dir() ' Nächste passende Datei abrufen
    Wend
End Sub

Private Sub Drucke_PDF(sPDFDatei As String)
    ' Verwende den Standarddrucker, um die PDF-Datei zu drucken
    Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFDatei & Chr(34), vbNormalFocus
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 15:04:08 Holger
NotSolved
Blau Per Makro aus einem Ordner alle PDF Dateien drucken
 02.02.2024 19:07:05 ralf_b
NotSolved
03.02.2024 15:44:42 Holger
Solved