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

  • 質問

  • 下記のコードを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

    です。

    • 編集済み inoino92 2018年11月26日 1:33
    2018年11月26日 1:33

回答

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

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

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

    参考↓

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

    • 回答としてマーク inoino92 2018年12月12日 3:18
    2018年11月28日 0:22
  • 解決策ではありませんが、変わりに印刷ダイアログを表示させて、必要に応じてプレビューしてもらうとか・・

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

    • 回答としてマーク inoino92 2018年12月12日 3:18
    2018年11月28日 0:27

すべての返信

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

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

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

    参考↓

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

    • 回答としてマーク inoino92 2018年12月12日 3:18
    2018年11月28日 0:22
  • 解決策ではありませんが、変わりに印刷ダイアログを表示させて、必要に応じてプレビューしてもらうとか・・

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

    • 回答としてマーク inoino92 2018年12月12日 3:18
    2018年11月28日 0:27
  • お礼が遅くなりましたが、回答ありがとうございました。

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

    2018年12月12日 3:20