有没有代码直接将word excel文件直接转为PDF格式文件并且直接加上水印呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有没有代码直接将word excel文件直接转为PDF呢？

假设现在有123.doc 234.xls两个文件有没有代码直接把两个文件转成pdf格式文件并且直接加上水印呢？

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编辑过]

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

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

文件不存在，或者处于打开状态，或者没有权限读取。改名复制到其他盘试试

在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中勾选“以管理员身份运行此程序”

主题：有没有代码直接将word excel文件直接转为PDF格式文件并且直接加上水印呢？