ものすごく簡単なVBAなのですが、思い通りに動きません

質問

こんにちは。

「入力」「出力」という２つのシートがあるファイルの操作です。
とても簡単なモジュール？を作ったのですが、思い通りに動いてくれません。

Sub 伝票印刷()

'出力シートを印刷
Worksheets("出力").PrintOut

'出力シートのセルを初期化
Worksheets("出力").Range("A9").ClearContents

End Sub

以上の作業を『「入力」シートを表示したまま』行うにはどのように書き換えればいいでしょうか。
（上記のものですと、最初に「入力」シートを表示させていても、印刷の時点で一瞬「出力」シートに移り変わってしまいます）

VBA初心者ですので、ピントのずれた質問でしたらすみません。

回答No.1

surounin · ベストアンサー

Sub 伝票印刷()
'画面更新をしない設定
*****application.screenupdating=false

'出力シートを印刷
'出力シートのセルを初期化
'画面更新をする
*****application.screenupdating=true
End Sub
*****の行を追加してくださいもちろん*****は除いてください。

お礼

ありがとうございました、無事解決しました。

回答No.2

tana59

モジュールの入り口で
Application.ScreenUpdating = False
として、出口で
Application.ScreenUpdating = True
とすればどうでしょう

お礼

お陰様で助かりました、完成に向けて頑張ります。