Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle pdf aus einem Ordner drúcken

Forumthread: Alle pdf aus einem Ordner drúcken

Alle pdf aus einem Ordner drúcken
Gerhard
Hallo zusammen,
ich habe mir folgendes Makro aus dem Forum genommen: 
Sub PrintPDF()
Dim sPath$, i%
sPath = "C:\Documents and Settings\gglatz\Desktop\NEWFOLDER\"
With Application.FileSearch
.NewSearch
.LookIn = sPath
.Filename = "*.*"
.Execute
Range("B2").Value = .FoundFiles.Count
.NewSearch
.LookIn = sPath
.Filename = "*.pdf"
.Execute msoSortByFileName
Range("C2").Value = .FoundFiles.Count
For i = 1 To .FoundFiles.Count
Shell ("C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe /p /h " & _
.FoundFiles(i))
Cells(i + 1, 1).Value = .FoundFiles(i)
Range("D2").Value = i
Next i
End With
End Sub

Das Makro läuft zunächst, öffnet dann den Adobe Reader und Adobe Reader bringt dann die Fehlermeldung "There was an error opening this document. This file cannot be found
Kann mir jemand weiterhelfen? Die Pfade etc. sind richtig geschrieben und es müßte eigentlich funktionieren...
Vielen Dank vorab
Gerhard
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alle pdf aus einem Ordner drúcken
13.07.2009 12:51:43
Martin
Hallo Gerhard,
nur als Grundidee: Klappt es vielleicht mit
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal  _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub Ducken()
ShellExecute 0, "Print", strDatei, "", "", SHOWMAXIMIZED
End Sub



GrußMicha
Anzeige
AW: Alle pdf aus einem Ordner drúcken
13.07.2009 14:25:29
Gerhard
Hallo Martin,
muß ich Deinen Code innerhalb des Makros plazieren?
Wenn ich Deinen Code in VBA kopiere, dann erscheint alles bei Function rot...
AW: Alle pdf aus einem Ordner drúcken
13.07.2009 14:47:21
Gerhard
Hi... mein ursprüngliches Makro funktioniert anscheinend doch... Ich hatte den Ordner mit den pdf Dateien auf dem Desktop was nicht funktioniert hat (vielleicht Zugriffsrechte oder was weiß ich). Nachdem ich Sie im normaklen Laufwerk abgespeichert habe, gehts nun...
Trotzdem Danke
Gerhard
Anzeige
;

Forumthreads zu verwandten Themen

alle PDFs in einem Ordner aus Makro drucken
Mike

Hallo zusammen,
ich suche nach einer Lösung aus einem Makro heraus alle vorhandenen *.pdf Dokumente in Ordner xx zu drucken.
Kann mir da jemand helfen?
Gruß
Mike
14.08.2019 10:47:30
Thread-ID: 1707594
2 Beiträge
Alle pdf in einem Verzeichnis drucken -VBA
Lars

Hallo,
ich habe diverse PDF in einem Verzeichnis die ich alle hintereinander drucken möchte:
C:\Ordner1\Dokument1.pdf C:\Ordner2\Dokument2.pdf usw.
diese sollten nun in dieser Reihenfolge ausgedruckt werden!
weiß jemand Rat?
Gruß Lars
07.12.2006 21:35:19
Thread-ID: 827428
2 Beiträge
mehrere Sheets in 1 pdf ausdrucken
Franz

Hallo Fachleute,
ist es möglich, mehrere Sheets in einer einzigen pdf-Datei zu drucken?
Hintergrund: ich hab eine Datei, deren erste Seite im Hochformat, der Rest der Datei im Querformat steht. Und beides muss ich in 1 pdf kriegen. Ist das möglich?
Danke schonmal und Grüße
Franz...
31.01.2020 13:02:51
Thread-ID: 1737706
14 Beiträge
mehrere Kopien Pdf-Datei drucken
Jürgen
Einen guten Tag zusammen!
Ich will gerne vorhandene PDF-Dateien aus vba heraus drucken, manche 1-fach mache x-fach.
kann ich dem 'shell' die Kopienzahl übermitteln oder geht das nur mit Schleife (das geht, dauert halt aber länger am Drucker - ist also eigentlich mal wieder ein "Luxusproblem"...
10.02.2022 10:13:00
Thread-ID: 1869894
2 Beiträge
mehrere Sheets als PDF drucken
Alex
Hallo zusammen,
ich bin absoluter VBA-Anfänger.
Da ich mich erst langsam in das VBA-Thema einarbeite, ich aber eine schnelle Lösung benötige, hoffe ich auf euer Schwarmwissen.
Ich möchte die Tabellenblätter AWP1 und AWP2 in ein PDF drucken.
Dabei hat das AWP1 den Druckbereich A$1:$E$...
06.10.2022 10:02:14
Thread-ID: 1901775
6 Beiträge
Anzeige
mehrere Hyperlink-Dateien in pdf drucken
rom0685
Hallo Helfer*innen,
leider hat mich meine mehrstündige Suche bisher nicht zum gewünschten Thread geführt hat, daher hier nun die Beschreibung meines Vorhabens.
Ich habe ein Sammlung an Ausführungsdetails in Form einzelner pdf-Dokumente erstellt.
Jedes hat nach einem festgelegten Detailnu...
27.02.2023 11:49:20
Thread-ID: 1921954
9 Beiträge
VBA nacheinander mehrere PDF drucken, Inhalt unterschiedlich
Stephan
Liebe Experten,
ich benötige einen VBA Code, der nacheinander mehrere PDFs erstellt.
Der zu druckende Bereich hat immer wieder unterschiedliche Inhalte.
Da die Datei schon sehr umfangreich ist, tue ich mich mit dem anonymisieren schwer - deshalb per Screenshot:


Die gelb ma...
08.11.2024 18:22:04
Thread-ID: 1995964
10 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Alle PDFs aus einem Ordner drucken

Schritt-für-Schritt-Anleitung

Um mehrere PDFs aus einem Ordner zu drucken, kannst Du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul:

    • Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub PrintPDF()
   Dim sPath As String, i As Integer
   sPath = "C:\Dein\Pfad\zu\Ordner\"
   With Application.FileSearch
       .NewSearch
       .LookIn = sPath
       .Filename = "*.pdf"
       .Execute
       For i = 1 To .FoundFiles.Count
           Shell ("C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe /p /h " & .FoundFiles(i))
       Next i
   End With
End Sub

  4. Ändere den Pfad zu Deinem Ordner, der die PDFs enthält.

  5. Speichere und schließe den VBA-Editor.

  6. Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle PrintPDF und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "There was an error opening this document."

    • Stelle sicher, dass der Pfad zu den PDFs korrekt ist. Manchmal kann es an Zugriffsrechten liegen, wenn die PDFs auf dem Desktop gespeichert sind. Versuche, die Dateien in ein anderes Verzeichnis zu verschieben.

  • Das Makro öffnet nicht alle PDFs.

    • Überprüfe, ob im angegebenen Ordner tatsächlich PDF-Dateien vorhanden sind und ob der Dateiname korrekt ist.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die integrierten Funktionen von Adobe Reader nutzen:

  1. Öffne Adobe Reader.
  2. Navigiere zu Datei > Drucken.
  3. Wähle "Ordner" und dann den Ordner, der die PDFs enthält.
  4. Wähle die gewünschten Druckeinstellungen und klicke auf Drucken.

Diese Methode eignet sich gut für Windows 11-Nutzer, die mehrere PDFs drucken möchten.

Praktische Beispiele

Hier sind einige Beispiele für verschiedene Szenarien, in denen Du mehrere PDFs drucken kannst:

  • Alle PDFs in einem Ordner drucken: Verwende das oben genannte VBA-Makro, um alle PDFs in einem bestimmten Ordner auszudrucken.

  • Ordner inhaltsverzeichnis drucken: Erstelle ein PDF mit einem Inhaltsverzeichnis und drucke dann alle Dokumente, die in diesem Verzeichnis aufgeführt sind.

Tipps für Profis

  • Batch-Druck: Wenn Du regelmäßig mehrere PDFs drucken musst, erwäge, ein automatisiertes Skript zu erstellen, das den Druckprozess für Dich übernimmt.

  • Zugriffsrechte prüfen: Achte darauf, dass der Ordner, aus dem Du drucken möchtest, die erforderlichen Zugriffsrechte hat, um Probleme beim Drucken zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere PDFs drucken, ohne jedes Mal Adobe Reader zu öffnen? Du kannst das VBA-Makro so anpassen, dass es den Druckdialog automatisch öffnet, ohne dass Adobe Reader sichtbar ist.

2. Funktioniert das Makro auch unter Windows 11? Ja, das VBA-Makro funktioniert ebenfalls unter Windows 11, solange Du die richtigen Pfade und Zugriffsrechte angibst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige