none
エクセル2019マクロで印刷プレビュー画面で印刷状況を確認したい。 RRS feed

  • 質問

  • エクセル2019でマクロを実行すると、オートメイションエラー 実行時エラー"-2147417848(80010108)"起動されたオブジェクトはクライアントから切断された。指定範囲の印刷
    プレビューが一切でずに突然シャットダウンします。以前のエクセルではプレビューを利用して好みの体裁で印刷が出来るが2019は出来ない。いちいち面倒だがメニューのファイル、
    印刷を選択で描画されるが改行位置の補正修正等もできない。マクロ上で全てを行いたいが私にはマクロ知識が希薄なため難しいです。Previewの方法をお教えください。
    下記コードの①、②、③のコードの内①、②は全てシャットダウンで駄目で③は印刷Dialogが表示されプレビューボタンを押すと暴走する。マクロによるPreviewは100%できないのでしょうか、ファイルは
    業務で使用するために作り直したものです。お忙しい中、申し訳ありませんがご回答の程、宜しくお願い致します。(余り時間がありませんが)miyamitomusasi1999x@gmail.com
         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
    2020年4月3日 2:05