Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33795 / 76734

←次へ　｜　前へ→


	【48155】Re:vbaでwebページを印刷できるの？

Kein - 07/4/5(木) 14:09 -


	引用なし

	パスワード

質問のタイトルからは、PrintScreenを貼り付けるのではなく、
印刷が目的のように思えますが、それなら IE の印刷機能を使えば
ずっと軽い処理で出来ます。コードは概ね・・

Dim IE As Object
Dim Ary As Variant
Dim i As Integer

Ary = Array(URL1, URL2, URL3)
Set IE = CreateObject("InternetExplorer.Application")
For i = 0 To UBound(Ary)
　 IE.Navigate Ary(i)
　 Do While IE.Busy
　 Loop
　 Do Until IE.ReadyState = READYSTATE_COMPLETE
　 Loop
　 IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
Next i
IE.Quit: Set IE = Nothing

というようなものです。配列の要素(URL1, URL2, ・・)は、実際の
サイトのアドレスにして下さい。

1 hits

▼

【48144】vbaでwebページを印刷できるの？ はる 07/4/5(木) 4:23