エクセルの印刷するマクロについて。

 ◇-?エクセルの印刷するマクロについて。-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

パソコントラブル解決・過去ログTOP > ログTOP > エクセルの印刷するマクロについて。

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言
検索	投稿あり	2010/01/18-14:50	左記[投稿あり]クリックにて検索(逆リンク調査)します同様の質問へのリンクとなっています