以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 打印选中的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195668) |
||||
-- 作者:lianghanyu -- 发布时间:2025/2/27 8:33:00 -- 打印选中的行 在以上代码,现在的是每行生成一个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 --
不对啊,这样打印的都是Row(0)行啊。不是我选中的多行。 我把我的模版也上传了。
|
||||
-- 作者:有点蓝 -- 发布时间:2025/2/27 9:10:00 -- 不可能打印的都是Row(0)行,只是文件名为Row(0)行的数据,文档内容肯定是选择的多行,除非只选了一行。 如果不同行的文件名称要不一样,就不适合全部打印到一个文件里,只能按原来的方法打印为多个文件
|
||||
-- 作者:lianghanyu -- 发布时间:2025/2/27 9:23:00 -- 把以下的注释掉就可以了: |
||||
-- 作者:有点蓝 -- 发布时间:2025/2/27 9:29:00 -- 到列属性里设置好即可:http://www.foxtable.com/webhelp/topics/1407.htm |