＞「SheetA」「SheetB」「SheetC」
＞言い換えると「SheetA」「SheetB」
「SheetC」はどっちですか。
これらのシート、（２つか３つかわからないのですが）非表示にするのですか、しないのですか。
「SheetC」も印刷しない、印刷しないシートは非表示にしないにしました。
印刷しないシートも非表示にしたい場合、変身して下さい。
また、対象が旧エクセル(.xls)の場合、メッセージが出ます。この場合も変身して下さい。
'
Option Explicit
'
Sub 一括印刷()
'
Dim FileName As Variant
Dim Cnt As Long
Dim NowFile As Variant
Dim Sh As Worksheet
'
FileName = Application.GetOpenFilename _
("Microsoft Excelブック,*.xls?", MultiSelect:=True)
If Not IsArray(FileName) Then
End
End If
'
Cnt = UBound(FileName)
If MsgBox(Cnt & "ファイルが選択されました。" & vbCrLf & _
"印刷を開始しますか？", vbOKCancel + vbInformation) = vbCancel Then
End
End If
'
For Each NowFile In FileName
Workbooks.Open NowFile, False
'
For Each Sh In ActiveWorkbook.Sheets
'
If Sh.Name <> "SheetA" And Sh.Name <> "SheetB" And Sh.Name <> "SheetC" Then
Sh.[C:E].EntireColumn.Hidden = True
Sh.[J:J].EntireColumn.Hidden = True
Sh.[N:O].EntireColumn.Hidden = True
Sh.PrintOut
End If
Next Sh
ActiveWorkbook.Close True
Next NowFile
MsgBox "印刷終了しました。"
End Sub
人のプログラムを利用するのは、人の褌で相撲を取るみたいですが、答えさせていただきます。
私が解りやすくするために、修正の必要ない所も修正してあります。ご了承下さい。
