TOP > Up > Today


Date:  Thu, 26 Oct 2006 15:05:36 +0900
From:  no@ann.co.jp
Subject:  [pasml 224060] Re: エクセルの印刷するマクロについて。
To:  pasml@ann.co.jp
Message-Id:  <200610260605.k9Q65aWP029998@ns.pas2.jp>
X-Mail-Count: 224060

名前: なまず 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 &quot;○○○.doc&quot;

'オブジェクト変数に代入
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