- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有没有代码直接将word excel文件直接转为PDF格式文件并且直接加上水印呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160393)
-- 发布时间：2021/2/1 9:18:00
-- 有没有代码直接将word excel文件直接转为PDF格式文件并且直接加上水印呢？
有没有代码直接将word excel文件直接转为PDF呢？
假设现在有123.doc 234.xls两个文件 有没有代码直接把两个文件转成pdf格式文件并且直接加上水印呢？
-- 发布时间：2021/2/1 9:28:00
--
http://www.foxtable.com/webhelp/topics/2930.htm
-- 发布时间：2021/2/1 10:14:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/to...
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl1 As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" \'指定目标PDF文件
Dim wrt As New WordReport(Tables("出库"),tm,fl1) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
两个都必须指定模板文件？word还需要指定表名？有没有直接转PDF的呢？
word文件转PDF代码如下 运行会报错
Dim fl1 As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" \'指定目标PDF文件
Dim wrt As New WordReport(fl1) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
[此贴子已经被作者于2021/2/1 10:14:58编辑过]
-- 发布时间：2021/2/1 10:20:00
--
Dim Book As New XLS.Book(“任意路径execl文件.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.pdf"
Book.SaveToPDF(fl) \'保存为PDF文件
word可以参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49847
-- 发布时间：2021/2/1 12:09:00
-- 回复：（有点蓝）Dim Book As New XLS.Book(“任意路径...
Dim app As New MSWord.Application
try
Dim fileName = "d:\\通知书.doc"
app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat("d:\\通知书.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
word文件通过上面的代码解决了
excel通过下面的代码运行后报错
Dim Book As New XLS.Book("C:\\Users\\Administrator\\Desktop\\附件3:情况统计表.xls")
Dim fl As String = "C:\\Users\\Administrator\\Desktop\\附件3:情况统计表.pdf"
Book.SaveToPDF(fl) \'保存为PDF文件
此主题相关图片如下：123.png
-- 发布时间：2021/2/1 13:33:00
--
文件不存在，或者处于打开状态，或者没有权限读取。改名复制到其他盘试试
在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中勾选“以管理员身份运行此程序”