Datum

Titel

17.04.2024 21:55:37

Preiserhöhung über mehrere Jahre berechnen

17.04.2024 20:19:32

Endzeitpunkt berechnen aus d:hh:mm errechnen

17.04.2024 18:57:33

Errinnerungsfunktion

17.04.2024 16:56:58

Stunden addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1772to1776

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

alle Dateien eines Ordners drucken

Forumthread: alle Dateien eines Ordners drucken
5 Beiträge zu diesem Forumthread
Anzeige
311 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

31.07.2020 18: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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: alle Dateien eines Ordners drucken

31.07.2020 19:41:15

Daniel
AW: alle Dateien eines Ordners drucken

31.07.2020 19:54:27

Helmut
AW: alle Dateien eines Ordners drucken

31.07.2020 20:07:24

Daniel
Probiere mal folgendes...

01.08.2020 09:05:14

Case
AW: Probiere mal folgendes...

01.08.2020 09:25:30

Helmut

AW: alle Dateien eines Ordners drucken

31.07.2020 19: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

AW: alle Dateien eines Ordners drucken

31.07.2020 19: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 20: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

Probiere mal folgendes...

01.08.2020 09: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

AW: Probiere mal folgendes...

01.08.2020 09: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