We used this code to open a PDF document and print it. But it should work with any file type as the code should know the program associated with file and print it correctly.
CODE:
'First part of code
Public 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
'2nd part of code:
Public Sub Print(strFile As String)
Dim hwndret As Long
hwndret = apiShellExecute(0, "print", strFile, vbNullString, vbNullString, 3)
End Sub