这段程序用vc 怎么写

Question

Option Explicit
Private WebBrowser1 As SHDocVw.InternetExplorer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub HTML_PRINT(FileName As String)
Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Navigate FileName
Sleep 200
WebBrowser1.ExecWB _
  OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
End Sub能实现前绑定最好

Answer 1

我是这样写的,但是不行 IWebBrowser2* pWebBrower2;
CoInitializeEx(NULL,0X00);
HRESULT h;
h=::CoCreateInstance(_uuidof(WebBrowser_V1),NULL,CLSCTX_ALL,_uuidof(IWebBrowser2),(void**)&pWebBrower2);
if (FAILED(h)) 
{
CoUninitialize();
// m_ErrMsg="初始化失败";
// return FALSE;
}
char str[]="e:\\2.html";
pWebBrower2->Navigate((unsigned short*)str,NULL,NULL,NULL,NULL);
Sleep(2000);

pWebBrower2->ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);