エクセル2019マクロで印刷プレビューを表示する方法

Question

エクセル2019でマクロを実行すると、オートメイションエラー 実行時エラー"-2147417848（80010108)"起動されたオブジェクトはクライアントから切断された。指定範囲の印刷

プレビューが一切でずに突然シャットダウンします。以前のエクセルではプレビューを利用して好みの体裁で印刷が出来るが2019は出来ない。いちいち面倒だがメニューのファイル、印刷を選択するとピレビューは表示される。下記コードの①、②、③のコードの内①、②は全てシャットダウンで駄目で③はプレビューボタンを押すと暴走する。マクロによるPreviewは100%できないのでしょうか、マクロ上でプレビューで確認し印刷開始したいがこの状況では私にはマクロ知識が希薄なためで難しいです。Previewの表示方法をお教えください。業務で使用するために作り直したものです。お忙しい中、申し訳ありませんがご回答の程、宜しくお願い致します。

　　Application.PrintCommunication = True      '//有効

　　ActiveSheet.PageSetup.PrintArea = ""      '//印刷エリアを解除

　　ActiveSheet.HPageBreaks.Add Range("A66")       '//改行の設定

　　ActiveSheet.PageSetup.PrintArea = "$A$6:$M$120"

　　 With ActiveSheet.PageSetup

　　　　.FitToPagesWide = 1 

　　　　.FitToPagesTall = 1   

   　　　.PrintTitleRows = "$2:$5"

　　　　.PaperSize = xlPaperA4

　　　　.Zoom = 65

　　　　.PrintErrors = xlPrintErrorsDisplayed　　　　　

　　End With

　　　　　Application.PrintCommunication = False

　　　　　Application.PrintCommunication = True

　　　　　 '① Worksheets("Sheet1").PrintPreview EnableChanges:=True

　　　　　'② ActiveSheet.PrintOut Preview:=True

　　　　　'③ Application.Dialogs(xlDialogPrintPreview).Show　　

　　　　　Application.PrintCommunication = False　

　　　　　　ActiveSheet.PrintOut

　　　End Sub

Answer 1

自己解決いたしました。

マクロ自動記録を利用してなんとかできました。有難う御座いました。

VBA専用のフォーラムには解決した旨のメールは送信していませんが？。

質問時にサブスクリプションのマークが出ていたのですが、良く分からないのですがMicrosoft サブスクリプションは当初から利用しませんのでよろしく取り計らい願います。

Answer 2

自己解決いたしました。

マクロ自動記録を利用してなんとかできました。有難う御座いました。

質問時にサブスクリプションのマークが出ていたのですが、良く分からないのですがMicrosoft サブスクリプションは当初から利用しませんのでよろしく取り計らい願います。

Answer 3

こんにちは。

VBA専用のフォーラムがあるため、並行してご投稿ください。

https://social.msdn.microsoft.com/Forums/ja-JP/...