▲このページのトップに戻る| 378855 | エクセルの印刷するマクロについて。 | moe(初) | 2006/10/26-05:33 |
メーカー名：富士通 FMV OS名：WindowsXp Professional Office2003 パソコン名： トラブル現象： エクセル2003 -- よろしくお願いします。 現在エクセルで印刷するマクロを考えております。 セルに「１」と入力とし、フォームボタン「印刷」をクリックすることにより、 ワードファイルを自動的に開き、１部数印刷されるようにと考えております。 ワードファイルは複数のファイルがあるので、各セルに部数が「１」と入れば、 複数のファイルを自動的に印刷できるようにしたいのです。 どのようにマクロを作成すればよいか、ご存知の方ご指導ください。 よろしくお願い致します。 | |||
| 378906 | Re:エクセルの印刷するマクロについて。 | なまず | 2006/10/26-15:05 |
記事番号378855へのコメント moe(初)さんは No.378855「エクセルの印刷するマクロについて。」で書きました。 参考ページ http://www.moug.net/skillup/nksw/nksw15-02.htm ベースだけ書きます。 サンプルでは○○○.docを２部印刷します。 チェックしてありますので大丈夫だと思いますが、ご自身の 責任の下でご利用下さい。 Visual Basicのウィンドウでツール→参照設定の “Microsoft Word 11.0 Object Library” にチェックを入れないと動きません。 ----- ここから ----- Dim objWord As New Word.Application Dim objWordDoc As Word.Document 'Wordを表示 objWord.Visible = True ' ----- ファイルを開くからファイルを閉じるまでを ' ----- 印刷するファイル数分繰り返し 'ファイルを開く。ファイル名（○○○.doc）はセルから取得。 objWord.Documents.Open "○○○.doc" 'オブジェクト変数に代入 Set objWordDoc = objWord.ActiveDocument '印刷。部数はCopies:=の後の数字。下記の例では２部。 objWord.PrintOut Copies:=2, Background:=False 'ファイルを閉じる objWordDoc.Close SaveChanges:=False '----- ここまでが繰り返し範囲 'Wordを終了 objWord.Quit | |||
◇-?エクセルの印刷するマクロについて。-moe(初)-10/26-05:33(114)-No.378855 ┗?!Re:エクセルの印刷するマクロに�...-なまず-10/26-15:05(104)-No.378906
| 378855 | エクセルの印刷するマクロについて。 | moe(初) | 2006/10/26-05:33 |
メーカー名：富士通 FMV OS名：WindowsXp Professional Office2003 パソコン名： トラブル現象： エクセル2003 -- よろしくお願いします。 現在エクセルで印刷するマクロを考えております。 セルに「１」と入力とし、フォームボタン「印刷」をクリックすることにより、 ワードファイルを自動的に開き、１部数印刷されるようにと考えております。 ワードファイルは複数のファイルがあるので、各セルに部数が「１」と入れば、 複数のファイルを自動的に印刷できるようにしたいのです。 どのようにマクロを作成すればよいか、ご存知の方ご指導ください。 よろしくお願い致します。 | |||
| 378906 | Re:エクセルの印刷するマクロについて。 | なまず | 2006/10/26-15:05 |
記事番号378855へのコメント moe(初)さんは No.378855「エクセルの印刷するマクロについて。」で書きました。 参考ページ http://www.moug.net/skillup/nksw/nksw15-02.htm ベースだけ書きます。 サンプルでは○○○.docを２部印刷します。 チェックしてありますので大丈夫だと思いますが、ご自身の 責任の下でご利用下さい。 Visual Basicのウィンドウでツール→参照設定の “Microsoft Word 11.0 Object Library” にチェックを入れないと動きません。 ----- ここから ----- Dim objWord As New Word.Application Dim objWordDoc As Word.Document 'Wordを表示 objWord.Visible = True ' ----- ファイルを開くからファイルを閉じるまでを ' ----- 印刷するファイル数分繰り返し 'ファイルを開く。ファイル名（○○○.doc）はセルから取得。 objWord.Documents.Open "○○○.doc" 'オブジェクト変数に代入 Set objWordDoc = objWord.ActiveDocument '印刷。部数はCopies:=の後の数字。下記の例では２部。 objWord.PrintOut Copies:=2, Background:=False 'ファイルを閉じる objWordDoc.Close SaveChanges:=False '----- ここまでが繰り返し範囲 'Wordを終了 objWord.Quit | |||