#DECLARE GW_CHILD 5 #DECLARE GWL_STYLE (-16) #DECLARE WS_VSCROLL &H200000 Declare Long GetWindow Lib "user32" Long hwnd, Long wCmd Declare Long GetWindowLong Lib "user32" As "GetWindowLongA" Long hwnd, Long nIndex Declare Long SetFocusAPI Lib "user32" As "SetFocus" Long hwnd Declare Long GetFocus Lib "user32" Declare Long SendMessage Lib "user32" As "SendMessageA" Long hwnd, Long wMsg, Long wParam, Long lParam local hwnd WebBrowser1.SetFocus hwnd = GetFocus SetFocusToBrowser (hwnd) SendKeys "^P" 'Control-P to print End Sub FUNCTION SetFocusToBrowser(hBrowserHwnd) Local lStyle, ; lResult,; hwnd hwnd = hBrowserHwnd Do While (lResult = 0) And (hwnd <> 0) hwnd = GetWindow(hwnd, GW_CHILD) lStyle = GetWindowLong(hwnd, GWL_STYLE) lResult = lStyle And WS_VSCROLL EndDo SetFocusAPI (hwnd) EndFunc