以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 批量打印报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121612)

--  作者:mikee
--  发布时间:2018/7/10 13:52:00
--  [求助] 批量打印报表
请教如果根据表中选择的数据(一行或者多行),按设计的报表模板批量打印? 

Dim tm As String  = ProjectPath & "Attachments\\订单清单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\订单清单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Print()

--  作者:cd_tdh
--  发布时间:2018/7/10 14:19:00
--  
要增加一个逻辑列,确定选择的行,在根据选择行来逐行生成报表。
--  作者:有点甜
--  发布时间:2018/7/10 14:34:00
--  

你选定以后执行代码,不是所有选定的都打印了?

 

如果要指定某些行打印,参考 http://www.foxtable.com/webhelp/scr/2890.htm