以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印选中的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195668)

--  作者:lianghanyu
--  发布时间:2025/2/27 8:33:00
--  打印选中的行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印.txt



在以上代码,现在的是每行生成一个PDF文件 。  如果我想把我选中的多行,全部打印成一个文件 ,要怎么样修改代吗?

--  作者:有点蓝
--  发布时间:2025/2/27 8:46:00
--  
把模板里的<ALL>标记去掉,然后改改打印代码

          With Tables("图档修改记录")
                    Dim n As Integer = .Rows(0)("_Identify")
                    Dim name As String = .Rows(0)("项目编号") & "_" & .Rows(0)("模具编号") & "_" & .Rows(0)("D3图纸") & "_" & n
                    Dim Book As New XLS.Book(mb)
                    Dim fl As String = Path & "\\" & name & "设计修改通知书.pdf"
                    Book.Build()
                    Book.SaveToPdf(fl)
            End With

--  作者:lianghanyu
--  发布时间:2025/2/27 9:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设计修改通知书模版.xls

不对啊,这样打印的都是Row(0)行啊。不是我选中的多行。

我把我的模版也上传了。

--  作者:有点蓝
--  发布时间:2025/2/27 9:10:00
--  
不可能打印的都是Row(0)行,只是文件名为Row(0)行的数据,文档内容肯定是选择的多行,除非只选了一行。

如果不同行的文件名称要不一样,就不适合全部打印到一个文件里,只能按原来的方法打印为多个文件

--  作者:lianghanyu
--  发布时间:2025/2/27 9:23:00
--  
把以下的注释掉就可以了:



图片点击可在新窗口打开查看此主题相关图片如下:111.jpg
图片点击可在新窗口打开查看


                    但是,我需要图片啊。应该要怎么样修改呢?

--  作者:有点蓝
--  发布时间:2025/2/27 9:29:00
--  
到列属性里设置好即可:http://www.foxtable.com/webhelp/topics/1407.htm