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 |
VBA >