Print all PDFs using VBA

[greyangel23]

I am trying to use vba to print all pdf documents in a particular folder that holds sub folders. I found this code but I don't know what I need to add to it to print the documents.

Sub PDF_Loop()

Dim FileSystem As Object
Dim HostFolder As String

HostFolder = "C:\Users\Username\Documents\"

Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)


End Sub

Sub DoFolder(Folder)

Dim SubFolder

Dim NextRow As Long

For Each SubFolder In Folder.SubFolders
DoFolder SubFolder
Next

Dim File

For Each File In Folder.Files
' Operate on each file

If Right(File.Name, 4) = ".pdf" Then

NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(NextRow, 1) = File.Name

End If

Next

End Sub

 

[Rhodie72]

This is not an answer, I'm just trying to figure out what youve posted...

Sub PDF_Loop()

   Dim FileSystem As Object, HostFolder As String
  
   HostFolder = InputBox("Where do you want to save the file?", "Save to...", "C:\Users\Username\Documents\")
  
   Set FileSystem = CreateObject("Scripting.FileSystemObject")
   DoFolder FileSystem.GetFolder(HostFolder)
  
      
End Sub
  
Sub DoFolder(Folder)
  
   Dim SubFolde,  NextRow As Long,File
  
   For Each SubFolder In Folder.SubFolders
       DoFolder SubFolder
   Next

   For Each File In Folder.Files
       ' Operate on each file
       If Right(File.Name, 4) = ".pdf" Then
           NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
           Cells(NextRow, 1) = File.Name
       Else
       End If
      
   Next

End Sub

 

[spasmex97]

did you find any solution yet?