Excel一括印刷の仕方

ひとつのフォルダにExcelブックが50個あり、そのExcelブックにはExcelシートが20シートあります。
50個の全ブックの1シート目だけを一括で印刷する方法はありますか。

No.1 回答者： tom04 回答日時： 2017/03/01 22:48

こんばんは！

VBAでの一例です。
フォルダ内のExcelファイルの拡張子は「xlsx」としています。

Sub Sample1()
Dim myPath As String, fN As String
myPath = "保存場所のパス" & "\"
fN = Dir(myPath & "*.xlsx")
Do Until fN = ""
Workbooks.Open (myPath & fN)
With ActiveWorkbook
.Worksheets(1).PrintPreview '←印刷プレビューでやめています。//
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
fN = Dir()
Loop
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございました。

お礼日時：2017/03/09 20:34