ソースコード:
'.xlsファイルを開いて編集するのに、画面を隠れたい
Application.Visible = False
Application.ScreenUpdating = False
'プレビューする前には、画面を表示するように
Application.Visible = True
'プレビュー実施
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
ActiveWindow.SelectedSheets.PrintPreview
プレビュー画面を表示されると、次ページを押下しても、次ページを表示されなかった。
※Excel2010、2007は問題なく動作できることです。
原因及び対策を教えて頂けませんか。