老师:请问如何将生成的EXCEL报表或word报表保存为jpg图片文件?以下是保存为PDF的代码,但我想保存为jpg图片文件,代码应该如何改?
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()