エクセル マクロでのプレビューについて

Question

エクセルでマクロを組んでいます。

そのファイルを起動した時にマクロが実行され、最後に印刷プレビューするようにしています。

印刷プレビューは以下のコードで行っています。

---

        #If VBA7 Then   ' Excel2010

            If Application.Version = "14.0" Then

                ActiveWindow.SelectedSheets.PrintPreview

            Else        ' Excel2013～

                Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

            End If

        #Else           ' ～Excel2007

            ActiveWindow.SelectedSheets.PrintPreview

        #End If

---

エクセル2003、2007、2010 の場合は「印刷プレビュー（全画面表示）」

エクセル2013、2016の場合は「印刷プレビューと印刷」で開くことができていました。

エクセル2019の場合、印刷プレビューが開かず、編集モードのままになってしまいます。

また、エクセル2016についても、直近（おそらく５月）の更新を実行したあと、印刷

プレビューができなくなりました。（エクセルのアイコンが2019と同じになった？）

エクセル2013、2016、2019の場合は「印刷プレビューと印刷」で開くようにするには

どのように修正したらいいでしょうか？

お分かりになる方がいらっしゃいましたら、教えていただけると助かります。

Answer 1

本来コメントにされるべき所がコメントになっていないのでは？と思いましたが、いかがでしょうか。

#If VBA7 Then ' Excel2010

If Application.Version = "14.0" Then

ActiveWindow.SelectedSheets.PrintPreview

Else

（ここ→）# ' Excel2013～

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

End If

#Else ' ～Excel2007

ActiveWindow.SelectedSheets.PrintPreview

#End If

Answer 2

返信ありがとうございます。

（ブックモジュールの）Workbook_Open プロシージャから

（標準モジュールの）弊社で作成したサブプロシージャを実行しています。

そのサブプロシージャの中にプレビューの処理があります。

Answer 3

> そのファイルを起動した時にマクロが実行され、

> 最後に印刷プレビューするようにしています。

> マクロ付きのエクセルファイルですが、VB.Netで作成したプログラムから、

> エクセルをキックしてファイルを開いています。

> プログラムからキックされた時はプレビューできないのですが、

> 編集モードで開いたエクセルのマクロをそのまま再実行すると

> プレビューできました。

> プレビューの処理以外にもマクロで色々やってます。

（標準モジュールの）Auto_Open プロシージャと

（ブックモジュールの）Workbook_Open プロシージャの

どちらを使用されているのでしょうか。

Answer 4

返信ありがとうございます。

マクロ付きのエクセルファイルですが、VB.Netで作成したプログラムから、

エクセルをキックしてファイルを開いています。

プログラムからキックされた時はプレビューできないのですが、

編集モードで開いたエクセルのマクロをそのまま再実行すると

プレビューできました。

プレビューの処理以外にもマクロで色々やってます。

マクロの実行順が変わった等、何かしら変わっているのだと思います。

もう少し調べてみて、また投稿いたします。

Answer 5

> Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

上記のコードの実行が出来るかどうかは既に確認されたのでしょうか。