Excel VBAで他のシートを印刷するとき

質問

シート1からシート2を表示しないで印刷したいんですが下の記述だと一瞬ですがシート2が表示されます、どのようにすればシート1のままシート2を印刷することができるのでしょうか、よろしくお願いします。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/7/23 ユーザー名 : H
'

Sheets("Sheet2").PrintOut Copies:=1, Collate:=True
End Sub

回答No.1

inte-nori · ベストアンサー

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/7/23 ユーザー名 : H
'
Application.ScreenUpdating = False
Sheets("Sheet2").PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

としてみてはどうでしょうか？

お礼

こんなに早く返答が来るとは思っていませんでした。
完璧ですありがとうございました。