Ｐａｇｅ 64 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼新しいスクリプトを保存するには？ ばぐ 03/5/18(日) 18:21 ┗Re:新しいスクリプトを保存するには？ sim 03/5/20(火) 3:07 ─────────────────────────────────────── ■題名 ： 新しいスクリプトを保存するには？ ■名前 ： ばぐ ■日付 ： 03/5/18(日) 18:21 -------------------------------------------------------------------------
| この機能を使いたいのですがどのようにスクリプトを保存すればいいのでしょう？？ '開いているページを全て印刷 ' 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 |
| この掲示板の仕様のためか、スクリプトの各行の左端の空白が すべて全角スペースに置き換わっています。 そのため、これをそのままコピー＆ペーストしてvbsファイルにしても 正しく動作しません。 ですので、コピー＆ペーストで一旦vbsファイルにした後 そのファイルの全角スペースを半角スペースに変換する必要があります。 そうすれば正しく動作するようになると思います。 |