habe ein kleines Problem, könnt Ihr mir da weiterhelfen?
Ich wollte erreichen, das ich in einer Zelle angezeigt bekomme wie viele Dateien in dem Ordner D:\PDF sind, dann wieviele PDF Dateien in dem Ordner sind, und dann sollen alle PDF Dateien nacheinander auf den Standartdrucker gedruckt werden. und dann soll in einer weiteren Zelle geschrieben werden wieviele Dateien ausgedruckt wurden. Bis auf 2 Sachen funktioniert auch alles.
1. die Anzahl der gedruckten Dateien stimmt nicht, es werden immer alle Dateien gezählt und 2tens das ist viel wichtiger es wird nur die erste Datei und nicht die anderen gedruckt.
Wisst Ihr wo der Fehler liegt?
vielen Dank
Mathias
Private Sub CommandButton1_Click()
' PrintPDF
Dim sPath$, i%
MsgBox ("Bitte dein Pfad zum Acrobat Reader anpassen!" & vbLf & "zur acrord32.exe")
sPath = "D:\PDF\" 'Hier das Verzeichnis angeben wo die PDF Dateien liegen
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:\Programme\Adobe\Acrobat 7.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