過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      13
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼開いているページを全て印刷(vbs)  YAma 02/8/1(木) 10:06

　───────────────────────────────────────
　■題名 ： 開いているページを全て印刷(vbs)
　■名前 ： YAma
　■日付 ： 02/8/1(木) 10:06
　-------------------------------------------------------------------------
   
'開いているページを全て印刷

'　　VBScript

'　　　　　　　　　　By YAma

Dim　　BugWeb

Dim　　i

Dim　　Viewobj

 

　　'BugBrowserのオブジェクトを取得

　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")



　　For i = BugWeb.DocumentCount -1 To 0 Step -1

　　　'ドキュメントオブジェクトを取得

　　　Set Viewobj = BugWeb.CreateDocumentViewObject(BugWeb.DocumentView(i))

　　　'印刷

　　　Call Viewobj.Document.execCommand("Print", True)

　　Next



　　'BugBrowserのオブジェクトを開放

　　Set Viewobj = Nothing

　　Set BugWeb = Nothing


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      13