Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28227 / 76732 ←次へ | 前へ→

【53808】Re:Printformについて
発言  ichinose  - 08/2/7(木) 21:29 -

引用なし
パスワード
   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を印刷します。

どちらかで検討してみてください。
0 hits

【53789】Printformについて VBA初心者 08/2/7(木) 12:02 質問
【53790】Re:Printformについて ichinose 08/2/7(木) 12:32 発言
【53807】Re:Printformについて ichinose 08/2/7(木) 21:22 発言
【53808】Re:Printformについて ichinose 08/2/7(木) 21:29 発言
【53809】Re:Printformについて neptune 08/2/7(木) 21:42 発言

28227 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free