If Tables("进销存").Current.Locked = False Then
MessageBox.show("单据未审核","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\进销存.xls")
Dim f As String = e.Form.Controls("ComboBox2").value
Dim fl As String = ProjectPath & "reports\进销存.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(f)
App.Visible = True
Ws.Print()
App.Quit
上面的代码预览出来了，我现在想点打印就直接打印，这样怎写呢？？？？
加好友 
发短信
Post By：2021/5/12 19:52:00 [只看该作者]
此主题相关图片如下：qq截图20210512201919.png
