Intercept Print to File dialog box from VB and complete it.

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

I wrote a report server in VB. The system sits all day long and starts Crystal Report reports on certain days. Some of the reports need to print on our mainframe printer. I created a printer on the report server computer that is type Print to file. Whenever a Crystal Report runs and is using this printer, the "Print to File" dialog box appears, and of course, no one is there to enter a filename and click OK. The attached code is run ever 30 seconds and if it sees the "Print to File" dialog box, it creates a filename and presses the ok button.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, ByVal _ lpWindowName As String) As Long Private Declare Function SendDlgItemMessage Lib "user32" _ Alias "SendDlgItemMessageA" (ByVal hDlg As Integer, ByVal _ nIDDlgItem As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Any) As Long Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long _ Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As _ String) As Long Const WM_SETTEXT = &HC Const WM_SHOWWINDOW = &H18 Const WM_LBUTTONUP = &H202 Const WM_LBUTTONDOWN = &H201 Const BM_CLICK = &HF5

Code: