VBA for printing all the pdf files inside a folder.

[hrithvik]

Sub Bulk_Print_From_Folder()

Dim k As Variant
Dim n As Variant
Dim oFile As Object
Dim oFiles As Object
Dim oFolder As Object
Dim Path As Variant
Dim vItem As Object

Path = "C:\Testing Folder"

With CreateObject("Shell.Application")
Set oFolder = .Namespace(Path)
If oFolder Is Nothing Then
MsgBox "The Folder :" & vbLf & """" & Path & """ was Not Found.", vbCritical Exit Sub
End If
End With

Set oFiles = oFolder.Items
oFiles.Filter 64, "*.pdf"

For n = 0 To oFiles.Count - 1
Set oFile = oFiles.Item(n)
For k = 0 To oFile.Verbs.Count - 1
Set vItem = oFile.Verbs.Item(k)
If Not vItem Is Nothing Then
If Replace(vItem, "&", "") = "Print" Then vItem.DoIt
End If
Next k
Next n

End Sub


​

 

[DanteAmor]

do you have a problem with the macro?
It sends you an error, which error, in which line?


Here another way:

Sub PrintPdfs()
    Dim wPath As String, wFile As Variant
    
    wPath = "C:\Testing Folder\"
    wFile = Dir(wPath & "*.pdf")
    
    Do While wFile <> ""
        ruta = "C:\Program Files\Adobe\Reader 11.0\Reader\"
        Shell ruta & "AcroRd32.exe /n /t " & wPath & wFile
        DoEvents
        Application.Wait Now + TimeValue("00:00:02")
        wFile = Dir()
    Loop
End Sub