[[20061016113628]]　『多数のエクセルファイルの印刷』（kei）　ページの最後に飛ぶ

『多数のエクセルファイルの印刷』（kei）

[多数のエクセルファイルの、各シートを印刷したいのです]

 お世話になります。

 たくさんあるエクセルファイルを　全て印刷したいのですが、
 全ファイルを選択して、右クリックで　印刷　を選択すると、
 各エクセルファイルのアクティブなシートしか印刷できません。
 今はひとつひとつのファイルを開いて、印刷対象の設定を ブック全体　として印刷していますが、
 ファイル数があるので　ワードファイルなどのようにファイルをまとめて選択するような簡易な方法で、
 各シートを印刷できる方法がありましたら教えてください。

 よろしくお願いしますｍ（_ _）ｍ

 エクセルVBAで一括印刷するツールを作れないこともないですが、
 フリーウェアが手軽ですね。
http://www.forest.impress.co.jp/article/2006/09/12/excelautoprint.html
 (MARBIN)

 どっかで回答したような、ともい検索したら出てきました。

[[20060908131836]]『複数ファイルの一括印刷』（TMG）

 (MARBIN)

 リンク先のコードを「ファイルを開く」で選択した複数
 ブックの全シートを印刷するように改造したものです。

 Sub sentaku()
  Dim Fs As Variant
  Dim F As Variant
  Dim wb As Workbook
  Dim i As Long
  Dim wscnt As Long

     Fs = Application.GetOpenFilename("エクセルファイル(*.xls),*.xls,全てのファイル(*.*),*.*", _
         Title:="選択", MultiSelect:=True)
     If TypeName(Fs) = "Boolean" Then Exit Sub

     For Each F In Fs
     Set wb = Workbooks.Open(F)
      wscnt = wb.Worksheets.Count
       For i = 1 To wscnt
        wb.Worksheets(i).PrintOut
       Next i
      wb.Close
     Next
 End Sub
 (MARBIN)

 MARBINさま　いろいろと挙げてくださってありがとうございます。
 教えていただいたマクロでできました。
 以前にも回答されていたのですね。検索でたどり着くことができなくて失礼しました。 
 フリーウエアでこのような便利なことができるものがあるのですね。
 こちらも試してみます。
 ありがとうございました。
 kei

コメント返信：

[ 一覧(最新更新順) ]

[[20061016113628]] 『多数のエクセルファイルの印刷』（kei） ページの最後に飛ぶ

[[20061016113628]]　『多数のエクセルファイルの印刷』（kei）　ページの最後に飛ぶ