Adobe Opens with this error message : there was an error opening this document ... the specified path is invalid. I'm using the code below to prompt the user to select the folder where the files are located and then print continuously.
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
.InitialView = msoFileDialogViewDetails ' msoFileDialogViewThumbnail
.Title = "Folder Selector"
'.InitialFileName = theFile
.ButtonName = "Use this folder"
.AllowMultiSelect = False
'The user pressed the action button.
If .Show = True Then
If .SelectedItems.Count = 0 Then
MsgBox "You didn't make a valid selection. Try again!"
Dim file As String
Dim folder As String
folder = fd.SelectedItems(1)
file = Dir(folder & "\*.pdf")
Do Until Len(file) = 0
Call Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\acrord32.exe /N /T /" & folder & "\" & file & ".pdf /WOC4FL-4177", vbNormalFocus)
file = Dir