以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教关于打印和导出WORD模板的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78636)
--  作者：我来看看
--  发布时间：2015/12/14 10:20:00
--  求教关于打印和导出WORD模板的代码

我会使用EXCEL模板，点击打印按钮后，直接打印信息，

Dim Book As New XLS.Book(ProjectPath & "Attachments\\bbrz.xls")
Dim fl As String = ProjectPath & "Reports\\bbrz.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

可是我现在要使用WORD模板，点击打印按钮后，直接打印信息请教如何修改代码？？？
--  作者：大红袍
--  发布时间：2015/12/14 10:23:00
--  

看看

 

http://www.foxtable.com/help/topics/2890.htm

 

打印就是

 

wrt.print

wrt.quit
--  作者：我来看看
--  发布时间：2015/12/14 10:28:00
--  
我知道，但是关键是WORD和EXCEL的代码都是用Dim Book As New XLS.Book这个吗？？？？？不可能吧~~~
--  作者：大红袍
--  发布时间：2015/12/14 10:29:00
--  
好好看 2楼代码
--  作者：我来看看
--  发布时间：2015/12/15 16:55:00
--  

老师，按照您的方法将导出按钮代码设置

 

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.Show() \'显示报表

 

打印代码设置为

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.Show() \'显示报表

wrt.print()

wrt.quit()

 

 

代码正确吗？？？？我的模板中有关联表数据，为什么我在点击导出或者打印按钮后出现程序假死的现象？？？

 
--  作者：大红袍
--  发布时间：2015/12/15 17:21:00
--  

如果导出假死，说明你根本就不能用word模板啊。你有成功生成过一个word报表吗？（如果没有，就卸载重装MS Office）

 

打印代码这样写

 

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()