エクセル マクロで印刷

質問

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

回答No.6

HohoPapa

後記コードでいかがでしょうか。
なお、シート名の埋まったセルを選択していない場合には
メッセージを表示するようにしてみましたが
セルに埋まったシート名が見つからない場合のエラーは考慮していません。

2つ目の要求については、
どのように動作すればいいのか、
もう一度整理し、スレッドを分けたほうがいいんじゃないかと思います。

特に、
あとから追加要求のあったダイアログの表示や
とりわけ、
対象エクセルブックが複数シートだった場合に
>複数のBookの複数シート名指定
このシート名の指定をどのようなインターフェースで指定することを考えているかなどです。

Option Explicit

Sub Sample1()

　With ThisWorkbook.Sheets(1)

　　Const DataCol = 2 'シート名の埋まっているセルたちの列番号
　　Dim RowCounter As Long
　　Dim PageCnt As Long
　　PageCnt = 0　　　　　'初回判定用カウンター
　　RowCounter = 3　　　 'シート名の埋まっているセルたちの開始行
　　.Select
　　Do
　　　If .Cells(RowCounter, DataCol).Value = "" Then Exit Do

　　　If IsSelect(Range(.Cells(RowCounter, DataCol), _
　　　　　　　　　　　　.Cells(RowCounter, DataCol))) = True Then
　　　　PageCnt = PageCnt + 1
　　　　If PageCnt = 1 Then
　　　　　ThisWorkbook.Sheets(.Cells(RowCounter, DataCol).Value).Select
　　　　　Application.Dialogs(xlDialogPrint).Show
　　　　Else
　　　　　ThisWorkbook.Sheets(.Cells(RowCounter, DataCol).Value).PrintOut _
　　　　　　Copies:=1, Collate:=True, IgnorePrintAreas:=False
　　　　End If
　　　End If
　　　.Select
　　　RowCounter = RowCounter + 1
　　Loop

　End With

　If PageCnt = 0 Then
　　MsgBox "シート名の埋まったセルが選択されていません"
　End If

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

お礼

早々のご対応に感謝です。

補足に記載抜けましたが、一度エクセルを閉じれば使えるので、取り敢えずこれでOKです。
修正版はお時間のある時で結構です。（当たり前！ですが）

次の月報は毎月末ですので？？
（シッカリ納期？ではありませんので誤解無きように）

2番目の課題はご指摘の通り別の質問にします。
これが出来れば課題１は不要の気がします。
が、いきなり2番目では（当方にも）難しいかと思い２段階にしたのですが。。。
１．が出来る人には同じ事、ですかね？？？？

＜予告編＞
A列にファイルのフルパス、B列の横のセルに「シート名」をイメージしています。
（限定しない方が良いかと思い記載しませんでした）

補足

毎度です。
朝一で確認しました。

目次の「Sheet１」のシート名もシートの場所、入力セルの位置の変更も出来ることを確認しました。シート名を選択しなかった場合（確かに有り得ます）のエラーメッセージを含めこれ以上何を望むことが有ろうか！という感じです。

とまで書いて、ふとよくやる、シートの選択間違いや、選択忘れが有るので再度エクセルに戻って印刷ダイアログでキャンセルをしてみたら、下記の2つのケースが出ました。
よって、お礼から補足に転記しました。

１．最初の1枚目のみ印刷中止されて、2枚目以降印刷されてしまう。
２．何度か試行していたら、一度は印刷がキャンセルされる（ように見える）のですがVBAがエラーで止まっており「継続」をクリックすると印刷が開始されてしまいます。

１．と２．の状況がどう違うのか確認していませんが（既にかなり印刷してしまっているので）先ず症状がご理解いただけますでしょうか？

１．２の状況が不明の場合再度詳細なケース分けして報告しますので宜しくご検討ください。