各位老师:
原来程序正常运行,现在在按钮的命令中增加了一个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
我把程序也升级到最新版本了,还是出现如上的提示!
请各位老师大咖们费心!