- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- Word报表保存为pdf文件，出现奇怪的字符，该怎样解决 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100666)
-- 发布时间：2017/5/16 9:52:00
-- Word报表保存为pdf文件，出现奇怪的字符，该怎样解决
直接保存为Word，每行前有一个像空格的字符。直接保存为PDF，出现奇怪的字符。请教怎样解决这个奇怪的字符？谢谢。
代码如下：
Dim wrt As New WordReport(Tables("文件审批"),ProjectPath & "Attachments\\Template\\T_文件审批.docx",dlg.FileName)
wrt.RecordsOnEachPage = 1 \'指定每页打印的记录数
wrt.Build() \'逐行生成报表
wrt.SaveToPDF(dlg.FileName.Replace(".docx",".pdf")) \'保存为PDF文件
wrt.Quit() \'退出报表
此主题相关图片如下：截图00.png
此主题相关图片如下：截图01.png
-- 发布时间：2017/5/16 10:01:00
--
word模板上传看看
-- 发布时间：2017/5/16 10:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:t_文件审批.zip |
-- 发布时间：2017/5/16 10:25:00
--
帮助的方法有问题，换一种方法。
Dim wrt As New WordReport(Tables("表A"),ProjectPath & "Attachments\\T_文件审批.docx","g:\\test.docx")
wrt.RecordsOnEachPage = 1 \'指定每页打印的记录数
wrt.Build() \'逐行生成报表
wrt.Quit() \'退出报表
Dim app As New MSWord.Application
try
Dim fileName = "g:\\test.docx"
Dim doc = app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat("g:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
catch ex As exception
msgbox(ex.message)
app.Quit
End try
-- 发布时间：2017/5/16 10:38:00
--
好，多谢！
-- 发布时间：2017/5/31 5:52:00
--
学习