Print non-XL file

  • Thread starter Thread starter Tim C
  • Start date Start date
T

Tim C

XL 2K

How would I tell Windows to print a non-Excel file (say, "c:\test\test.tif")
from within a macro?

Thanks,
Tim C
 
I found the code below at MSKB article 238245.
http://support.microsoft.com/default.aspx?scid=kb;en-us;238245&Product=vba

I changed "open" to "print" and it works as required.

Thanks,
Tim C


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, "open", "C:\My Documents\Book1.xls", "", _
"C:\", SW_SHOWNORMAL)
End Sub
 
Back
Top