Microsoft Excelについての質問です。

画面の下にシートを選択するタブがありますよね。

そのタブをSHIFTで全部選択して表示されているシートで変更すると

全て変わりますよ。

とりあえずマクロを組んでみました

単純にひとつひとつのブックのひとつひとつのシートに対して「倍率を50%に設定」を繰り返して印刷します。もっとよい組み方もありそうですが。

「ActiveSheet.PageSetup」の部分を変更すると他の項目もいろいろ設定ができるはずです。

(マクロの記憶→ページ設定でいろいろな項目が記録されるので参考にして下さい。)

Sub Print_MyBooks()

Dim objShell As Object, objFol As Object

Dim FolN As String

Dim MyF As Variant

Dim i As Integer

Set objShell = CreateObject(”Shell.Application”)

Set objFol = objShell _

.BrowseForFolder(0, ”フォルダを選択して下さい”, 0)

If objFol Is Nothing Then Exit Sub

FolN = objFol.Items().Item().Path

ChDir FolN

With Application.FileSearch

.LookIn = FolN

.Filename = ”*.xls”

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)

Dim W As Worksheet

For Each W In Worksheets

W.Select

ActiveSheet.PageSetup.Zoom = 50

ActiveSheet.PrintOut Copies:=1, collate:=True

Next W

ActiveWorkbook.Close False

Next i

MsgBox ”全シートの印刷が終わりました。”

Else

MsgBox ”このフォルダにExcelファイルはありません。”

End If

End With

End Sub

複数ファイルのシートをこれらのようなツールで1ブックにしてしまってから，

「数枚のシートの印刷設定を一括でする方法」

１さんの言うようにシートの一括設定をしたらどうでしょう。「多量」の度合によると思いますが。

再度戻したければ，以前に質問されていた分割の方法でどうでしょう。

（印刷が目的という流れを前提の回答です）