以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求问订单中PDF怎么弄  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55496)
--  作者：qq864729713
--  发布时间：2014/8/18 10:20:00
--  求问订单中PDF怎么弄
你们好
我想请问一下， 
我做了， 一个订单， 
如何再增加一个按钮， 可以转换成PDF格式， 
谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:更改订购数量.zip
--  作者：有点甜
--  发布时间：2014/8/18 10:25:00
--  
 密码多少？什么意思？
--  作者：Bin
--  发布时间：2014/8/18 10:25:00
--  
开发者密码?
--  作者：有点甜
--  发布时间：2014/8/18 10:26:00
--  

 是这个意思？ http://www.foxtable.com/help/topics/2930.htm

 
--  作者：qq864729713
--  发布时间：2014/8/18 10:33:00
--  
136922
--  作者：qq864729713
--  发布时间：2014/8/18 10:35:00
--  
可以了。， 谢谢各位指导
--  作者：qq864729713
--  发布时间：2014/8/18 10:52:00
--  
为什么我根据这个来弄，显示 savetoPDF isnot member xls。book什么的
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim fl As String = ProjectPath & "Reports\\订单.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
--  作者：有点甜
--  发布时间：2014/8/18 10:54:00
--  

 最新版的foxtable才有这个功能SaveToPDF

 

 而且，你必须安装MS Offices 2007以上的版本才行。
--  作者：Bin
--  发布时间：2014/8/18 10:55:00
--  
不应该 完全提示发出来,  做个例子发出来看看.
--  作者：Bin
--  发布时间：2014/8/18 10:57:00
--  
就你1楼的例子,我测试代码没问题.

Dim Book As New XLS.Book(ProjectPath & "Attachments\\客户表.xlsx")
Dim fl As String = ProjectPath & "Reports\\客户表.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()