Excel 2016で「ActiveSheet.PrintPreview」を行うとプリンタが二重に表示される

Question

下記のコードをExcel 2016で実行すると、印刷時に表示されるプリンタの選択候補が全て2重に表示されてしまいます。

Sub label_printout()
    ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PageSetup.CenterVertically = True
    ActiveSheet.PrintPreview
End Sub

Excel 2013ではこの現象は発生しませんでした。

原因および解決方法が分かる方はいらっしゃいませんか。

正常に動作することを確認した環境は

・Windows7 - Excel 2013

プリンタが二重になる現象を確認した環境は

・Windows7 - Excel 2016

・Windows10 -Excel 2016

です。

Answer 1

Win7+Excel2016(64bit Ver1810) で確認したところ、プレビュー画面から引き続き印刷ダイアログを表示すると、確かにプリンタが２重に表示されますね。

少し話がそれますが、以前、Excel2016のプレビュー機能でフリーズする現象に出くわしました。

結局解決できずに放置しましたが、他の方の環境でも発生していたようなので、Excel2016のプレビュー機能に何か問題があるのかもしませんね。

参考↓

https://social.msdn.microsoft.com/Forums/en-US/866f5480-6d94-402d-b49b-28cf4abb5d29/excel-20161805-printpreview-?forum=vbajp

Answer 2

解決策ではありませんが、変わりに印刷ダイアログを表示させて、必要に応じてプレビューしてもらうとか・・

Sub label_printout()
    ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PageSetup.CenterVertically = True
    Application.Dialogs(xlDialogPrint).Show
End Sub

Answer 3

お礼が遅くなりましたが、回答ありがとうございました。

やはり根本的な解決策はなく、Excelの不具合(仕様？)と捉えるしかないようですね…