vba to print all pdfs from a folder

[Khatuaaccess]

Hi,

I have the below code which pick 1 pdf from a folder to print.

Now i want to pick all pdfs from that location and send it to print. also want to close the acrobat adobe reader closed.


Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _


ByVal nShowCmd As Long) As Long

Public Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Sub testPrint()
Dim printThis
Dim strDir As String
Dim strFile As String





strDir = "C:\DailyData\Prasanta Data\Access\Deployment\Letters"
strFile = "GHI.pdf"





printThis = PrintThisDoc(0, strDir & strFile)

End Sub

[ranman256]

''usage on button click:
sub button_click()
PrintAllFilesInDir "c:\folder"
end sub

  ' put this at the top of the module
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Public Sub PrintAllFilesInDir(ByVal pvDir)
Dim vFil, vTargT
Dim i As Integer
Dim fso
Dim oFolder, oFile
Dim vOutFile

On Error GoTo errImp
If Right(pvDir, 1) <> "\" Then pvDir = pvDir & "\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(pvDir)

For Each oFile In oFolder.Files
    vFil = pvDir & oFile.Name
    If InStr(vFil, ".pdf") > 0 Then      'ONLY DO PDF FILES
            Call ShellExecute(0, "print", vFil, "", "", 1)
    End If
Next

Set fso = Nothing
Set oFile = Nothing
Set oFolder = Nothing
MsgBox "Done"
Exit Sub

errImp:
MsgBox Err.Description, vbCritical, "clsImport:ImportData()" & Err
Exit Sub
Resume
End Sub