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