以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Excel报表转成PDF格式后,设置好的标准合并不可用,  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148899)

--  作者:LVYEDREAM
--  发布时间:2020/4/18 9:30:00
--  [求助]Excel报表转成PDF格式后,设置好的标准合并不可用,
请教老师,通过以下代码把Excel报表转成PDF格式后,之前在报表管理中设置好的标准合并(自由合并False)在PDF格式中不起作用了,请问应该如何解决?

Dim Book As New XLS.Book(ProjectPath & "Attachments\\账单.xls")
Dim fl As String = ProjectPath & "Reports\\账单.pdf"
Book.Build() 
Book.Save(fl)
Book.SaveToPDF(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

--  作者:有点蓝
--  发布时间:2020/4/18 10:01:00
--  
我测试没有问题。做个例子发上来看看
--  作者:LVYEDREAM
--  发布时间:2020/4/18 11:12:00
--  
请看一下,谢谢
--  作者:LVYEDREAM
--  发布时间:2020/4/18 11:14:00
--  
有附件吗
--  作者:LVYEDREAM
--  发布时间:2020/4/18 11:16:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pdf报表.foxdb


--  作者:LVYEDREAM
--  发布时间:2020/4/18 11:19:00
--  
模板文件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:账单.xls


--  作者:LVYEDREAM
--  发布时间:2020/4/18 11:24:00
--  
请用这个打包文件测试,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pdf报表.rar


--  作者:有点蓝
--  发布时间:2020/4/18 11:52:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\账单.xls")
Dim fl As String = ProjectPath & "Reports\\账单.pdf"
Book.MergeFree = False
Book.Build() 
Book.Save(fl)
Book.SaveToPDF(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

--  作者:LVYEDREAM
--  发布时间:2020/4/18 19:53:00
--  
原来是缺少了这个属性,非常感谢!