各位老师，我弄了一个自动打印的功能，代码如下，每次打印都会弹出打印的模板，然后才开始打印，能不能做到不要弹出模板，直接打印 Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
book.AddDataTable("A表","数据源","Select * f rom {A表} where ID= '"& dr("ID") &"'") '添加父表
book.AddDataTable("B表","数据源","Select * f rom {B表} where PARENT= '"& dr("ID")& "'") '添加子表
book.AddRelation("A表","ID","B表","PARENT") '建立关联
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb= "Print"
Proc.Start()
加好友 
发短信
Post By：2018/5/17 11:20:00 [只看该作者]
