我的代码是这样的
If Tables("出库单").current("单据状态")="已审核"
Dim Book As New XLS.Book(ProjectPath & "Attachments\销售单.xls")
Dim fl As String = ProjectPath & "Reports\销售单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "汉思软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.PageSetting.Width = 200 '纸张宽度为200毫米
ws.PageSetting.Height = 170 '纸张高度为170毫米
ws.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码
App.Visible = True
ShowAppWindow("汉思软件",2)
'添加打印内容
Ws.PrintPreview
App.Quit
Else
messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
打印出错了
加好友 
发短信
Post By：2023/10/31 21:09:00 [只看该作者]
