专家坐堂-foxtable 连续打开（打印）一组 word文件出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  foxtable 连续打开（打印）一组 word文件出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69482)

--  作者：dtcaoqian
--  发布时间：2015/6/5 19:25:00
--  foxtable 连续打开（打印）一组 word文件出错
foxtable 连续打开（打印）一组 word文件出错,会出现"normal.dotm正由另一word会话编辑，如果您用原名保存此文档，将会改写在其他会话中所做的任何更改。是否仍用原名保存文档。“跳出对话框。很麻烦，请哪位同学指导一下，不胜感激。
另，我的代码：

If Forms("单").Controls("CheckBox2").checked=True Then
Dim tm As String = ProjectPath & "Attachments\\水.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\水.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("单基表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Print()
wrt.quit
End If

If Forms("单").Controls("CheckBox3").checked=True Then
Dim tm As String = ProjectPath & "Attachments\\尘.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\尘.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("单基表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.quit
End If

--  作者：Bin
--  发布时间：2015/6/6 8:49:00
--
试试
Dim wrt As WordReport

If Forms("单").Controls("CheckBox2").checked=True Then
Dim tm As String = ProjectPath & "Attachments\\水.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\水.doc" \'指定目标文件
wrt = New WordReport(Tables("单基表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Print()

End If

If Forms("单").Controls("CheckBox3").checked=True Then
Dim tm As String = ProjectPath & "Attachments\\尘.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\尘.doc" \'指定目标文件
wrt = New WordReport(Tables("单基表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
End If
wrt.quit