|
IEから、指定サイトを印刷する方法
新規ブックにて
まず、参照設定にて、
「Microsoft Internet Controls」にチェックを入れてください。
Thisworkbookのモジュールに
'==============================================================
Option Explicit
Dim WithEvents ie As InternetExplorer
Dim pr As Long
'==============================================================
Sub hp_print()
Dim ans, idx
Dim txt As String
Dim regex As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate2 "HTTP://www.google.co.jp/"
' ↑半角のhttpに直して実行すること
Do While ie.Busy = True Or ie.ReadyState <> 4
Loop
pr = 0
ie.ExecWB 6, 2, 0, 0
Do While pr = 0
DoEvents
Loop
ie.Quit
Set ie = Nothing
End Sub
'==============================================================
Private Sub ie_PrintTemplateTeardown(ByVal pDisp As Object)
pr = 1
End Sub
として、hp_printを実行してください。
前例と同様にGoogleを印刷します。
どちらかで検討してみてください。
|
|