以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想实现WORD模板套打，然后后台打印此文档如何实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79067)
--  作者：unverse
--  发布时间：2015/12/23 16:40:00
--  想实现WORD模板套打，然后后台打印此文档如何实现

如题，通过程序做了一个WORD文档，然后将这个文档后台打印，应该如何实现，现在是打印前台显示，然后在WORD里点打印。想实现后台打印

 

 

 

  Dim r As DataRow = Tables("ptsj1").Current.DataRow
    Dim tm As String  = ProjectPath & "Attachments\\交费收据新格式.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\交费收据新格式.doc" \'指定目标文件
    Dim wrt As New WordReport(Tables("数据主界面_普通收据_table1"),tm,fl) \'定义一个WordReport
   
    wrt.BuildOne(Tables("数据主界面_普通收据_table1").Current)
    wrt.quit
    \'wrt.Show() \'显示报表
    Dim Proc As New Process
    Proc.File = fl
    Proc.Verb = "Print" \'指定动作
    Proc.Start()
   

--  作者：大红袍
--  发布时间：2015/12/23 16:41:00
--  

Dim r As DataRow = Tables("ptsj1").Current.DataRow
Dim tm As String  = ProjectPath & "Attachments\\交费收据新格式.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\交费收据新格式.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("数据主界面_普通收据_table1"),tm,fl) \'定义一个WordReport

wrt.BuildOne(Tables("数据主界面_普通收据_table1").Current)
wrt.print
wrt.quit