Found another:
Code:
Sub PrintPDF(strFile As String)
Dim lngRes As Long
lngRes = ShellExecute(0, "Print", strFile, "", "", 3)
End Sub
Dang, it worked!!!
But it leaves Acrobat on the taskbar. CLOSE or QUIT not an operation available to ShellExecute. Only way I've found to shut down an application is to terminate all its processes:
Code:
strComputer = "."
strProcessKill = "'msaccess.exe'"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next