各位老师：

    原来程序正常运行，现在在按钮的命令中增加了一个APP,程序如下：

   ....

      Dim App As New MSExcel.Application
          App.Visible = True
      Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open( status2 )
      Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets(1)
      Dim Rg3 As MSExcel.Range = Ws3.Cells
          \'Rg3.EntireRow.AutoFit          \'自动调整行高
      With Ws3.PageSetup
        \'.PrintArea = Ws3.UsedRange.Address   \'打印工作表的使用区域
        .PrintTitleRows = Ws3.Rows("$2:$3").Address             \'打印行标题(在每一页的顶部重复出现)
        .PaperSize = MSExcel.XlPaperSize.xlPaperA4       \'纸张大小
        .LeftMargin = 2             \'页面左边距
        .RightMargin = 2            \'页面右边距
        .TopMargin = 5              \'页面顶部边距
        .BottomMargin = 25           \'页面底部边距
        .RightFooter = "第 &P 页  共 &N 页"                  \'右页脚
        .FooterMargin = 3           \'页脚到页面底端的距离
        .Orientation = MSExcel.xlPageOrientation.xlLandscape     \'横向打印
      End With
      Wb.Save

.....

没有这段命令时运行正常！但加行这段命令后运行错误，提示如下图：

此主题相关图片如下：微信图片_20191028174712.jpg

我把程序也升级到最新版本了，还是出现如上的提示！

请各位老师大咖们费心！

谢谢！

老师费心了！