保存为PDF文件

提示:此功能需要安装Office 2007或更高的版本。

为了避免用户修改生成好的Word报表,我们可以将报表保存为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() '退出
Dim
Proc As New Process '打开PDF文件
Proc
.File = fl2
Proc
.Start()

提示:为了能打开生成的PDF文件,请先安装PDF阅读软件,例如:Adobe Reader X
 

 

 


本页地址:http://www.foxtable.com/webhelp/topics/2931.htm