保存为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