I created this to print .pdf files from a folder.
It might be a starting place for you.
Dim CheckFile As String, FileFound As String, sDest As String, FileName As String, x As Long, sAcrobatReaderExe As String
CheckFile = "*.pdf"
On Error GoTo errorcatch
'The following lines of code use a network path for the source file :
sDest = "C:\Users\A C\Downloads\" & CheckFile ' will be changed to CurrentProject.path & MAXIMOExports
'MsgBox sDest
ctr = 1
FileFound = Dir(sDest) ' Retrieving the first entry.
FileName = "C:\Users\A C\Downloads\" & FileFound
If FileFound <> "" Then
MsgBox ctr & " - " & FileName
CreateObject("Shell.Application").Namespace(0).ParseName(FileName).InvokeVerb ("Print")
End If
Do Until FileFound = "" ' Start the loop.
ctr = ctr + 1
FileFound = Dir() ' Getting next entry.
If FileFound <> "" Then
MsgBox ctr & " - " & FileFound
CreateObject("Shell.Application").Namespace(0).ParseName(FileName).InvokeVerb ("Print")
End If
Loop
MsgBox ctr & " .pdf files printed"
Exit Sub
errorcatch:
MsgBox "Error - " & Err.Description