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

alle Dateien eines Ordners drucken

Forumthread: alle Dateien eines Ordners drucken

alle Dateien eines Ordners drucken
31.07.2020 20:51:40
Helmut
Hallo Excel-VBA-Profis,
wer könnte mir bitte mit einem Makro helfen, das mir alle PDF-Dateien eines Ordners druckt.
Vielen Dank im voraus für die Unterstützung.
Gruß Helmut
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Dateien eines Ordners drucken
31.07.2020 21:41:15
Daniel
Hi
im prinzip so (bitte in einem leeren Sheet testen)
dim Datei as string
dim Pfad as string
Pfad = "C:\dein\Ordner\"
Cells.Clear
datei = Dir(pfad & "*.pdf")
if Datei  "" then
Cells(1, 1).value = pfad
do until datei = ""
Cells(rows.count, 1).End(xlup).offset(1, 0).value = Datei
datei = dir()
Loop
activesheet.printout
end if

Gruß Daniel
Anzeige
AW: alle Dateien eines Ordners drucken
31.07.2020 21:54:27
Helmut
Hallo Daniel, zuerst mal vielen Dank für Deine Mühe.
Es spielt sich nichts in einer Excel-Tabelle ab.
Ich will nur von Excel aus einen VBA-Code starten, der die PDF-Dateien in einem Ordner ausdruckt.
Gruß Helmut
AW: alle Dateien eines Ordners drucken
31.07.2020 22:07:24
Daniel
HI
dann müsstest du den Filenamen eben nicht ins Blatt schreiben, sondern über eine Shell-Anweisung an den Drucker schicken.
mit einer Suchmaschine deiner Wahl und den Suchbegriffen "shell befehl vba drucken"
sollte sich was finden lassen.
Gruß Daniel
Anzeige
Probiere mal folgendes...
01.08.2020 11:05:14
Case
Hallo Helmut, :-)
... aus: ;-)
Option Explicit
Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
Private Const SW_HIDE As Long = 0
Public Sub Main()
Dim strFileName As String
Dim strPath As String
' Pfad mit anpassen...
strPath = "C:\Temp\"
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
strFileName = Dir$(strPath & "*.pdf")
Do Until strFileName = vbNullString
Call ShellExecuteA(Application.hwnd, "PRINT", strPath & _
strFileName, vbNullString, vbNullString, SW_HIDE)
DoEvents
strFileName = Dir$
Loop
End Sub
Servus
Case
Anzeige
AW: Probiere mal folgendes...
01.08.2020 11:25:30
Helmut
Hallo Case, vielen vielen Dank, Du hast mir durch Deine Lösung sehr geholfen. Es hat wunderbar geklappt! Schönes Wochenende.
Gruß Helmut

Forumthreads zu verwandten Themen

Dateien verschieben/löschen
Edgar

Hallo zusammen,
ich bräuchte mal die Hilfe der VBA Experten. Habe schon alle möglichen Threads durchgelesen, aber das was ich eigentlich will habe ich nicht gefunden.
Ich habe einen Ordner mit n Textdateien. Nun möchte ich alle Dateien, die älter als 39 Monate sind in ein Archiv verschi...
21.11.2020 15:04:51
Thread-ID: 1794720
2 Beiträge
Anzeige
Dateien speicherortunabhängig machen
Tobias

Hallo Leute,
ich suche nach einer Möglichkeit meine Exceldatei so klein und so unabhängig wie möglich zu machen. Hierbei tun sich für mich zwei Probleme auf.
Zum Einen habe ich Grafiken in Form von GIF-Dateien, die per "datei.Copy und datei.Paste" von einem ausgeblendeten Tabellenblatt...
23.02.2006 19:03:25
Thread-ID: 736905
3 Beiträge
Anzeige
CSV-Import
Volker

Hallo Zusammen,
ich habe folgenden VBA-Code um CSV-Dateien zu Importieren gefunden. Das Importieren der ersten CSV-Datei ist auch soweit i.o.
Die zweite CSV soll nun aber nicht in ein neues Tabellenblatt sondern auf dem aktuellen Sheet unten angehängt werden.
Hat vielleicht von Euch...
07.03.2014 10:10:54
Thread-ID: 1352546
1 Beitrag
Kopieren&umbenennen von Dateien mit VBA
Dateien

Moin,
verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject v0 = "c:\prog\testfiles" TNetzCopy "\\pc1\i1\*T ", v0, "1" und dann weiter mit der SUB Private Sub TNetzCopy(QuellPC As...
02.09.2013 10:49:00
Thread-ID: 1329147
1 Beitrag
Dateien aus Ordner erkennen
Martin
Hallo zusammen,
ich habe einen Ordner, wo txt Dateien automatisch zur Weiterverarbeitung abgelegt werden.
zb. 19283.txt, 19284.txt, 19305.txt
Nach der Verarbeitung werden sie in einen Unterordner verschoben.
Nun würde ich ungern bruteforcemäßig alle Dateinamen raten und vba schauen l...
08.07.2021 17:55:18
Thread-ID: 1838338
9 Beiträge
BEREICH.VERSCHIEBEN per VBA ändern
u_hoernchen

Ihr lieben,
ich habe das Internet schon durchsucht, aber noch keine wirliche Lösung gefunden:
In meiner Datei (die es leider 70 mal gibt mit jeweils 36 identischen Blättern) gibt es Felder, auf denen eine Gültigkeitsprüfung liegt. Diese Gültigkeitsprüfung ist eine BEREICH.VERSCHIEBEN-Fo...
18.03.2014 10:43:43
Thread-ID: 1353875
2 Beiträge
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:18:26
Thread-ID: 615635
1 Beitrag
Anzeige
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:19:01
Thread-ID: 615636
2 Beiträge
VBA - Zellen in Master-Datei konsuldieren
Ruhrpottriot
Hallo zusammen,

leider ist mein Beitrag im Archiv gelandet, mein Problem ist aber noch nicht gelöst (Thorsten hat es prophezeit, dass das passiert). Daher schreibe ich ihn hier neu an. Habe in den Forum nix dazu gefunden, ob es eine Möglichkeit gibt den Beitrag aus dem Archiv wieder ins Leb...
12.12.2023 14:59:41
Thread-ID: 1957471
2 Beiträge
Dateien eines Ordners nach Zeit sortiert verarbeit
joko0803

Liebe Excel-Experten,
ich hatte vor einiger Zeit hier ein Problem eingestellt, das ich mit Eurer Hilfe lösen konnte. Gerne würde ich das nun "rund" machen, weiß aber nicht im Geringsten wie der Code dazu aussehen könnte.
Problem: Ich habe ca. 25 bis 40 Dateien (.xls in der Version 2) in...
07.03.2017 16:22:02
Thread-ID: 1545975
5 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum