エクセルのマクロでシートの非表示と特定のシートのみ印刷する方法について

質問

• エクセルのマクロによるシートの非表示や特定のシートのみ印刷する方法について詳しく教えてください。
• 指定したシートを非表示にするには、WorksheetsオブジェクトのVisibleプロパティをFalseに設定します。
• また、特定のシートのみ印刷するには、ActiveWindowオブジェクトのSelectedSheetsプロパティを使用して、印刷したいシートを選択し、PrintOutメソッドを実行します。

回答No.5

nishi6 · ベストアンサー

Sheet1は印刷する必要があると思って回答していました。
補足を見ると、Sheet1の表示、非表示にかかわらずSheet1は印刷の必要はないようなので簡単にしました。

補足がSheet2だけのことなのか分かりませんので Select Case の中で印刷範囲の設定、印刷、印刷範囲の解除をしています。

Sub 印刷test()
　　Dim ws As Worksheet 'ワークシート

　　For Each ws In Worksheets '全てのシートを調べる
　　　　With ws
　　　　　　Select Case .Name
　　　　　　　　Case "Sheet2"
　　　　　　　　　　.PageSetup.PrintArea = "A1:AB42"
　　　　　　　　　　.PrintPreview
　　　　　　　　　　.PageSetup.PrintArea = ""
　　　　　　　　Case "Sheet3"
　　　　　　　　　　.PrintPreview
　　　　　　　　Case "Sheet4"
　　　　　　　　　　.PrintPreview
　　　　　　End Select
　　　　End With
　　Next
End Sub

蛇足ですが・・・・・・
Sheet2、Sheet3、Sheet4のみを印刷したいなら直接的に書いたほうが分かりやすいかもしれません。（下記）
また、PrintAreaの指定が固定であれば、シート上（印刷範囲の設定）で設定しておけばマクロの中で設定する必要はありません。
印刷範囲が変動する場合はマクロの中で自動的に設定したりします。マクロの実行のたびに印刷範囲を変更するとマクロの意味がなくなってしまいます。
１つのシートの印刷範囲を１種類にしておけば、そのシートの余白などの細かい印刷設定をシート上（プレビュー）で行えば、マクロ側ではほとんど設定する必要はありません。(今回はExcel2000です。同じでしょう)

Sub 印刷test2()
　　With Worksheets("Sheet2")
　　　　.PageSetup.PrintArea = "A1:AB42"
　　　　.PrintPreview
　　　　.PageSetup.PrintArea = ""
　　End With

　　With Worksheets("Sheet3")
　　　　.PrintPreview
　　End With

　　With Worksheets("Sheet4")
　　　　.PrintPreview
　　End With
End Sub

最後に、マクロを記録した結果から不必要な箇所を除いたり、繰り返し処理、判定処理を組み込むようにすれば間違いが減り、分かりやすく短くなり、上達すると思います。

お礼

いろいろ教えていただきまして、ありがとうございました。
VBAを始めて、1週間がたちましたが、詳しく教えていただいたので
VBAの作成の方法がだいぶわかりました。本を読んでやっていたときは
さっぱりわかりませんでしたが、親切に教えていただいたおかげで助かりました
また、何か質問をする事がありかもわかりませんが、そのときはよろしくお願いします。