Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDE = 0
 
Sub Test()
    Dim strTxtFile As String
    Dim lRetVal As Long
 
    strTxtFile = "C:\Test.txt"
    lRetVal = ShellExecute(Application.hWnd, "print", strTxtFile, "", "", _
      SW_HIDE)
End Sub