SendKeysを使用しないIE印刷ダイアログボックスの自動化

Question

SendKeysを使用せずにVBAでIEブラウザの印刷ダイアログボックスを制御することはできますか？

Answer 1

InternetExplorerオブジェクトのExecWBメソッドを使用します（詳細はthis linkを参照）。 マイクロソフトのインターネットへの参照を追加した後

プロジェクトにライブラリーを制御し、次の例では、作業を開始する必要があります

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