VBA to print multiple PDF's that are already saved but to print one every 3 seconds?

Ok so i print about 200+ pdf's every day. I know i can ctrl A and drag them to the printer but every time i do that it prints around 3 out 5 pdf's. Is there a way i can write a macros telling it to print each pdf and wait 3 or 5 seconds to print the next one?

so far i have this:

Option Explicit 

Declare Function apiShellExecute 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 PrintFile(ByVal strPathAndFilename As String) 

    Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0) 

End Sub 

Sub Test() 

    PrintFile ("C:\Users\gutierrezs\downloads") 

End Sub 

its not working for me becuase i think the above was only meant to search for a file name and print one.