Excel VBA Print External File
<p>I have this code that I found while doing a google search. It seems to open the text file just fine, but I want to print the file. Can anyone see what is missing here and tell me why it is not printing?  Thanks</p>

<pre><code>Declare Function ShellExecute 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

Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
   (ByVal lpclassname As Any, ByVal lpCaption As Any) As Long

Global Const SW_SHOWNORMAL = 1

Sub ShellExecuteExample()
   Dim hwnd
   Dim StartDoc
   hwnd = apiFindWindow("OPUSAPP", "0")

   StartDoc = ShellExecute(hwnd, "print", "C:\Scripts\print.vba.test.txt", "", _
      "C:\", SW_SHOWNORMAL)
End Sub
</code></pre>