Print all files in a folder. Only prints files with a print action associated with the file type in Windows.

TargetFolder = "C:"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
For Each objItem in colItems
    objItem.InvokeVerbEx("Print")
Next