以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何实现，所有表打印成PDF的代码，集中到一个按钮上呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90169)

--  作者：发哥 --  发布时间：2016/9/7 9:06:00 --  如何实现，所有表打印成PDF的代码，集中到一个按钮上呢 如何实现，所有表打印成PDF的代码，集中到一个按钮上呢？ 如下图 此主题相关图片如下：0001.png 谢谢狐爸

--  作者：有点蓝 --  发布时间：2016/9/7 9:59:00 --   1、表名和模板名设置成一样，参考： Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & CurrentTable.Name & ".xls") Dim fl As String = ProjectPath & "Reports\\" & CurrentTable.Name & ".pdf" Book.Build() \'生成细节区 Book.SaveToPDF(fl) \'保存为PDF文件 2、上面图片右边属性区域有“最顶层”、“最底层”的设置

--  作者：发哥 --  发布时间：2016/9/7 10:29:00 --   谢谢，谢谢。 您能不能帮我在改一下呢，我的模板是WORD文档的，不是EXCEL表，我尝试着套用了下，没改成功。 2、问题已解决，

--  作者：发哥 --  发布时间：2016/9/7 10:43:00 --   可以了，谢谢。万分谢谢。

--  作者：发哥 --  发布时间：2016/9/7 11:18:00 --   老师，刚才没改好， Dim wrt As New WordReport(Tables("市场推广"),tm,fl1) \'定义一个WordReport ------------应该是这一行，不知怎么改成当前的表名。

--  作者：有点蓝 --  发布时间：2016/9/7 11:19:00 --   Dim tm As String  = ProjectPath & "Attachments\\" & CurrentTable.Name & ".doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\" & CurrentTable.Name & ".doc" \'指定目标文件 Dim wrt As New WordReport(CurrentTable,tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 不会上传例子