如何将office文档转换为pdf - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将office文档转换为pdf

共有2356人关注过本帖树形打印复制链接主题：如何将office文档转换为pdf

天若千颖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

如何将office文档转换为pdf 发帖心情

Post By：2017/6/2 14:17:00 [显示全部帖子]

请教版主，如何利用FT把已有的word、excel和ppt文件之间转换为PDF，

以下代码可以直接将excel转换为pdf：

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()

帮助中也提到把Table保存为PDF，如何把指定的一个word和ppt文件保存为pdf呢？

天若千颖

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2017/6/2 14:26:00 [显示全部帖子]

WORD TO PDF

Dim app As New MSWord.Application
try
    Dim fileName = "e:\test.docx"
    app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat("e:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49847

那么PPT呢？