以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动打印问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119076)
--  作者：积水成渊
--  发布时间：2018/5/17 11:20:00
--  [求助]自动打印问题
各位老师，我弄了一个自动打印的功能，代码如下，每次打印都会弹出打印的模板，然后才开始打印，能不能做到不要弹出模板，直接打印
                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()
--  作者：积水成渊
--  发布时间：2018/5/17 11:23:00
--  
还有一个问题就是，打印关联表的时候，如果父表对应的子表有三个或者4个，代码该如何修改
--  作者：有点甜
--  发布时间：2018/5/17 11:40:00
--  

1、这个代码删除

 

                Dim Proc As New Process \'打开工作簿
                Proc.File = fl
                Proc.Verb= "Print"
                Proc.Start()

 

2、改成vba代码

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=118706&skin=0

 

3、一个父表，多个子表的情况，在一个sheet里面的话，暂时无法生成那种excel报表的。（具体问题，做个例子发上来测试一下）