Foxtable(狐表) → 用户栏目 → 专家坐堂 → foxtable 连续打开（打印）一组 word文件出错


  共有2729人关注过本帖树形打印复制链接

主题：foxtable 连续打开（打印）一组 word文件出错
帅哥哟，离线，有人找我吗？
dtcaoqian
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：216 积分：1894 威望：0 精华：0 注册：2015/5/27 1:15:00 		foxtable 连续打开（打印）一组 word文件出错  发帖心情 Post By：2015/6/5 19:25:00 [只看该作者]

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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询