老师： 您好！下面是打印代码：
If Tables("qrymyf").Rows.Count = 0 Then
MessageBox.Show("未有选定款式图样可打印")
Return
End If
Dim d As Date = Date.Today
Dim bh As String = Format(d ,"yyyy年MM月")
Dim tt As Table = Tables("yywrkhtc")
Dim lt19 = tt(19)("khtc") ' 打印模板(板单)
Dim lt33 = tt(33)("khtc") & "\" ' 本地存取
Dim Book As New XLS.Book(lt19)
Dim fl As String = (lt33) & Tables("qrymyf").Current("ffikgn") & ".xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
谢谢！
[此贴子已经被作者于2018/10/7 10:40:54编辑过]
加好友 
发短信
Post By：2018/10/7 10:17:00 [显示全部帖子]
此主题相关图片如下：aa.png
