用的是代码 如下If Tables("销售单").current("单据状态")="已审核"
Dim Book As New XLS.Book(ProjectPath & "Attachments\销售单.xls")
Dim file As String = ProjectPath & "Reports\销售单.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 = 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
Else
messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
加好友 
发短信
Post By：2019/11/1 10:18:00 [只看该作者]
此主题相关图片如下：webwxgetmsgimg.jpg