エクセル マクロで印刷

質問

• エクセルのマクロを利用して、複数のシートを一括で印刷する方法を教えてください。
• エクセルBookの目次に複数のシート名を作成し、目次から選択して印刷できるようにする方法を教えてください。
• エクセルBookのSheet 1に他のBookのフルパスを入れ、目次から印刷することができるマクロの作成方法を教えてください。

回答No.5

imogasi

補足されているように、私の例は、複数シートのニーズにこたえた例示コードでは、なかったですね。
　そもそも,質問者のニーズ（普通にやる操作で、どこで面倒に感じているか）が、質問に
明記されていない。
何かこれらの操作をやっているときに、いやになって、イライラして、
ついこの質問コーナーに、うっぷんを出したというような感じです。
想像するに、
（１）複数シートの選択の点
（２）印刷のセットアップの点
の不便を想像します。
（１）は
・シートの指定（操作）の「グループ化」でやればできます。（補足にも書いておられることです）
https://support.microsoft.com/ja-jp/office/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E3%82%92%E9%81%B8%E6%8A%9E%E3%81%99%E3%82%8B-096b40c9-0ee7-4980-bac6-cc92aec7b266
「ワークシートを選択する」
・たくさんシートがあって、選ぶのが面倒だ。ただし
シート名の文字列に特徴がある（例　先頭に、「２１年売上」が付いている名から選ぶ。
等なら、VBAで候補を絞って列挙して、選ばせる、などできます。
ーー
（２）は、
印刷の設定がバラバラで、指定するのが面倒なら、タイプ別に指定するぐらいのことは
VBAでできそうです。あるいはよく変わる項目だけ、VBAのコントロール（部品）で指定するように、できます。
＝＝＝＝
（１）の一例を例示。
シート名の先頭２文字が売上のシート名を、リストボックスのアイテムに出し、印刷希望のシート名を
クリックするとそのシートを印刷する。
ページ設定の色色な設定は、組み込んでない。
臭いだけ嗅いでください。
ユーザーフォームに、リストボックス１つと、コマンドボタン１つ貼り付けます。
ーーー
ユーザーフォームのモジュールに下記を作る。
Option Base 0

Private Sub CommandButton1_Click()
k = 0
' Dim selSht(0 To 20) As String
Dim selSht() As String
ReDim seiSht(1)
With UserForm1.ListBox1

Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
MsgBox UserForm1.ListBox1.List(i)
ReDim Preserve selSht(i)
selSht(k) = UserForm1.ListBox1.List(i)
k = k + 1
ListBox1.Selected(i) = False
End If

Next i
End With
'---印刷　ページ設定は済みとする
MsgBox "印刷します"
For i = 0 To k - 1
MsgBox selSht(i)
Worksheets(selSht(i)).PrintOut 'Arrat不要
'Sheets(selSht).Select
'Selection.PrintOut
Next
Application.Quit

End Sub
ーー
Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
For Each sh In Worksheets
'---
If sh.Name Like "売上*" Then
UserForm1.ListBox1.AddItem sh.Name
End If
Next
ActiveSheet.Select
End Sub
面倒なものです。上記も、力不足で、不満足な面があるが、とりあえず。

お礼

何度もお手数を煩わせて申し訳ありません。

確かに要求の動機が抜けています。
要求の背景としては、毎月の月報作成という同じ操作をやっているときに、今まで何も思わずにやっていた作業ですが、他人に引き継ぐことを前提にマニュアルをと思ったら出来るだけ簡単に・・・と思った次第です。

何が面倒か改めて言うと「それ位は都度シートを手動で選択して一括印刷すれば」と言われそうですが。。。
また質問が長がくなるので敢えて割愛した次第です。

面倒だと思う作業は、複数の担当者が各シートに入力するので、シートの内容を明示するためにシート名が長くなってしまうので、印刷時にBook内のシート間をあちこち行き来して探す作業を簡単にと思いました。
目的別に印刷するシートを1ページに目次にしておいて一括選択で印刷出来れば抜けやシート間違いがない。
カラーや両面印刷等の詳細が都度設定出来れば完璧。
その他にも理由があるのですがやはり長くなるので止めます。
これでも十分長い。要領悪くてすみません。

一応コードは試行してみましたが、エラーMsgが出ました。
やはり小生にはハードルが高いご回答のようです。
また、既にほぼ要求を満たしたご回答が有りますのでこれ以上のお手数は無用です。

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