甜老师，我在打印按钮里写以下代码：
Dim Book As New XLS.Book(ProjectPath & "Attachments\客户订单信息.xls")
Dim file As String = SpecialFolder.DesktopDirectory & "\客户订单信息.xls"
Book.Build() '生成细节区
Book.Save(file) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
.PaperSize = 157 'MSExcel.XlPaperSize.xlPaperA4 '纸张大小
'.CenterHorizontally = True '页面水平居中
'.CenterVertically = True '页面垂直居中
.Zoom = False '以下设置将缩印在一页内
.FitToPagesWide = 1 '按照1页的宽度打印
'.FitToPagesTall = 1 '按照1页的高度打印
End With
'App.Visible = True
Ws.PrintOut
wb.save
wb.close
App.Quit
运行时提示如下错误：
此主题相关图片如下：qq图片20141229105135.jpg
该如何是好？
加好友 
发短信
Post By：2014/12/26 15:51:00 [只看该作者]
此主题相关图片如下：无标题.png