none
Excelでマクロを使用してシートを印刷しようとするとツールバーが消える RRS feed

  • 質問

  • Excelで下記の様なブックでマクロを使用し、印刷しております。

    今までは普通に使えたのですが、最近アップデートしてからツールバーが非表示になる不具合が出るようになってしまいました。

    マクロの目的は特定の条件のシートを検索して選択し、印刷画面を表示するために使用しております。

    ctrl+マウスで選択して手動にて印刷画面を実行した際には不具合が発生いたしません。

    となるとマクロのコードに問題があるのかと考え、見てみましたが、原因がわからず困っております。

    どなたかご教授いただければ幸いです。マクロのコードも添付させていただきます。

    〇環境

    OS:windows10

    office: office2016

    Sub 実行予算書の印刷()

          Worksheets("実行予算書 (HOME)").EnableCalculation = True
          Worksheets("実行予算書 (HOME)").Calculate
          Worksheets("実行予算書 (HOME)").EnableCalculation = False
          
      Const FIND_STR = "実行予算書 ("  '探す文字列

      Dim find_flg As Boolean
      Dim sh As Object
     
      find_flg = False

      For Each sh In Sheets
        If sh.Name Like "*" & FIND_STR & "*" Then
      
          '見つかった1枚目のシートの場合
          If find_flg = False Then
            '元々選択されていたシートの選択を解除
            sh.Select Replace:=True
            find_flg = True
          '見つかった2枚目以降のシートの場合
          Else
            '選択済みシートの選択を解除しない
            sh.Select Replace:=False
          End If
       
        End If
      Next sh
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
    End Sub



    2018年8月7日 7:56