无需使用SendKeys即可自动执行IE打印对话框

Question

是否可以在不使用SendKeys的情况下控制VBA中的IE浏览器打印对话框？

Answer 1

通过使用InternetExplorer对象的ExecWB方法（有关详细信息，请参阅this link）。

将 Microsoft Internet Controls 库的引用添加到项目后，以下示例可帮助您入门：

Option Explicit

Sub PrintWebPage()

    Dim ie As InternetExplorer

    Set ie = New InternetExplorer

    ie.Navigate "http://www.google.com/"
    ie.Visible = 1

    'Wait for page to finish loading
    Do While ie.ReadyState <> READYSTATE_COMPLETE
     DoEvents
    Loop

    ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

    MsgBox "Done printing.", vbInformation

End Sub