【VBS】IEを開いてWebページを印刷するスクリプト

Tweet

Category develop 2015/11/18

問題

作業を自動化したいので、ブラウザを起動して、指定したURLを開いてWebページを印刷するスクリプトが欲しいです。

答え

例）

sample.vbs などの名前でファイルを作成し、以下を書き込み、ダブルクリックで起動する。

'IE
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

'Webページを開く
ie.Navigate "https://www.softel.co.jp/labs/tools/ip/"

'ページの読み込みが終わるまで待機
Do Until ie.Busy = False
   WScript.sleep(250)
Loop

'デフォルトプリンタに印刷する（印刷ダイアログなしで）
ie.ExecWB 6, 2, 3

'IEを終了
ie.Quit

人の操作はVBSを起動するだけ。

PCではIEのウインドウなどは現れるが、印刷まで完了する。