如何将生成的EXCEL报表或word报表保存为jpg图片文件 Post By:2020/9/10 13:40:00 [显示全部帖子]
老师:请问如何将生成的EXCEL报表或word报表保存为jpg图片文件?
以下是保存为PDF的代码,但我想保存为jpg图片文件,代码应该如何改?
Dim tm
AsString
= ProjectPath & "Attachments\出库单.doc"'指定模板文件 Dim fl1
AsString =
ProjectPath & "Reports\出库单.doc"'指定目标文件 Dim fl2
AsString =
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()