TOP > Up > Today
名前: なまず BBSから
質問:http://pasokoma.jp/bbsb/lg378855#378906
携帯:http://pasokoma.jp/m?num=378906&ope=v
--
moe(初)さんは No.378855「エクセルの印刷するマクロについて。」で書きました。
ベースだけ書きます。
サンプルでは○○○.docを2部印刷します。
チェックしてありますので大丈夫だと思いますが、ご自身の
責任の下でご利用下さい。
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:=の後の数字。下記の例では2部。
objWord.PrintOut Copies:=2, Background:=False
'ファイルを閉じる
objWordDoc.Close SaveChanges:=False
'----- ここまでが繰り返し範囲
'Wordを終了
objWord.Quit
--
== 掲示板URL: http://pasokoma.jp/bbs ==
配信の停止: http://pasokoma.jp/taikai
本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today