VBでScriptXを使用するには (ID:76848)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さんありがとうございます。 メーリングリストの過去ログを参照させていただきました。 自分で試してみたところ、横印刷はできました。 ただ、用紙サイズを変更することができません。 以下にソースを記述致しますので、間違った点をご指摘お願い致します。 Dim Doc As MSHTML.HTMLDocument ・ ・ ・ Do While Doc Is Nothing DoEvents Set Doc = WebBrowser1.Document Loop Set obj = Doc.createElement("object") 'Set obj = WebBrowser1.Document.createElement("object") obj.classid = "clsid:1663ed61-23eb-11d2-b92f-008048fdd814" obj.Style.display = "none" Set body = Doc.body body.appendChild obj Set mobjFactory = obj.object Set obj = Nothing Set body = Nothing Set Doc = Nothing Set Pr = mobjFactory.printing Pr.portrait = True Pr.PaperSize = "A4" WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER Set Pr = Nothing 大変申し訳ございませんが宜しくお願い致します。