Closing an Adobe Acrobat Viewer window in VB6 1

[CruiseMan]

I am using the following code to print a .pdf file to my default printer in VB6, which works correctly, but it leaves an empty Acrobat Viewer window open even after the application closes. Does anyone know how to force this window to close through code?
(OS: WinXP SP3)

code example:

Call ShellExecute(hWnd, "Print", "C:\MISC\Limits.pdf", "", "", 0)

 

[HughLerwill]

If the Acrobat Viewer window has a predictable caption, something like;

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_CLOSE = &H10
Public Const WM_CANCELMODE = &H1F

Sub QuitIt()

Dim TargHwnd as Long
Do
TargHwnd = FindWindow(0&, "The Window Caption")
If TargHwnd Then
PostMessage TargetHwnd, WM_CANCELMODE, 0, 0&
PostMessage TargetHwnd, WM_CLOSE, 0, 0&
End If
Loop While TargHwnd 'loop in case there is more than one of them

End Sub

... may do the trick

 

[CruiseMan]

Thanks, HughLerwill! That seems to work.

 

[tedsmith]

Thanks from me too! I often wondered how to do this.