主题：求教关于打印和导出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模板，点击打印按钮后，直接打印信息请教如何修改代码？？？

看看

 

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

 

打印就是

 

wrt.print

wrt.quit

我知道，但是关键是WORD和EXCEL的代码都是用Dim Book As New XLS.Book这个吗？？？？？不可能吧~~~

好好看 2楼代码

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

 

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

 

 

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

 

如果导出假死，说明你根本就不能用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()