[[20060908131836]]　『複数ファイルの一括印刷』（TMG）　ページの最後に飛ぶ

『複数ファイルの一括印刷』（TMG）
複数のファイル(同じフォルダに入っている)を
一度にプリントする方法を教えて下さい。
宜しくお願いします。

 ファイルの
 種類は全てエクセルですか？
 ほかのも混じってますか？
 フリーソフトでもありますが、エクセルのみでしたら
 VBAでも可能です。
 (MARBIN)

 べた打ちで未検証ですが、指定フォルダ内の全てのブック
 の全てのシートを順にプリントアウトするサンプルです。

 Sub insatu()
  Dim fol As String
  Dim f As String
  Dim wb As Workbook
  Dim wscnt As Long
  Dim i As Long
   fol = "D:\marbin"
   f = Dir(fol & "\*.xls")
    Do While f <> ""
     Set wb = Workbooks.Open(fol & "\" & f)
     wscnt = wb.Worksheets.Count
      For i = 1 To wscnt
       wb.Worksheets(i).PrintOut
      Next i
     wb.Close
     f = Dir()
    Loop
    Set wb = Nothing
 End Sub
 (MARBIN)

エクセルのみです。

ありがとうございます。
やってみます。

ＴＭＧ

コメント返信：

[ 一覧(最新更新順) ]

[[20060908131836]] 『複数ファイルの一括印刷』（TMG） ページの最後に飛ぶ

[[20060908131836]]　『複数ファイルの一括印刷』（TMG）　ページの最後に飛ぶ