エクセル マクロで印刷

質問

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

回答No.2

HohoPapa

まずは1つ目の印刷機能

1枚目（つまり」先頭）のシートの2列目(B列）の3行目から下方向に
空白セルが無く、シート名が並んでいるという条件、
更に、印刷対象かどうかは、シート名のセルが選択されているかどうかで判定。
（つまり、任意の複数セルを選択可能ということ）
という使い方を想定してコードを書いてみました。

よかったらテストしてみてください。

使い勝手がよければ、
１つ目をベースに２つ目の印刷機能を書いてみます。

Sub Sample1()

　With ThisWorkbook.Sheets(1)

　　Const DataCol = 2 'シート名の埋まっているセルたちの列番号
　　Dim RowCounter As Long

　　RowCounter = 3　　　 'シート名の埋まっているセルたちの開始行
　　Do
　　　If .Cells(RowCounter, DataCol).Value = "" Then Exit Sub
　　　If IsSelect(Range(.Cells(RowCounter, DataCol), _
　　　　　　　　　　　　.Cells(RowCounter, DataCol))) = True Then
　　　　ThisWorkbook.Sheets(.Cells(RowCounter, DataCol).Value).PrintOut _
　　　　　Copies:=1, Collate:=True, IgnorePrintAreas:=False
　　　End If
　　　RowCounter = RowCounter + 1
　　Loop
　End With

End Sub

Function IsSelect(Rng As Range) As Boolean
　If Application.Intersect(Selection, Rng) Is Nothing Then
　　IsSelect = False
　Else
　　IsSelect = True
　End If
End Function

補足

Hohopapa-さん、おはようございます。
早々に実ﾌｧｲﾙで試してみました。

いつも通り1発で完璧に期待通り（以上）に動きました。
1つだけ抜けていた要求を追加させてください。
マクロの最後は「印刷ダイアログ」（プリンターの選択と設定）になるようにお願します。
過去のコードから下記を試行してみましたが、これもいつも通り却下されました。
Application.Dialogs(xlDialogPrint).Show

下のコードとバッティング？するようです。
　Copies:=1, Collate:=True, IgnorePrintAreas:=False