以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]word报表打印窗口中的Label控件内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81692)

--  作者:荟美绘姿
--  发布时间:2016/3/3 16:05:00
--  [求助]word报表打印窗口中的Label控件内容

请问是否可以在word报表中打印指定窗口中的Label控件中的内容

 

如果可以请指教在word报表中的代码应该如何写,谢谢大侠


--  作者:大红袍
--  发布时间:2016/3/3 16:18:00
--  

 要用代码处理,看看

 

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

 


--  作者:荟美绘姿
--  发布时间:2016/3/3 16:56:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160303164928.png
图片点击可在新窗口打开查看
我要分别在序号下面的单元格中分别提取下面窗口中序号下面的Label14Label15、Label16、Label17、Label18、Label19中的内容

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160303165040.png
图片点击可在新窗口打开查看

 

请大侠帮忙一下下,谢谢!


--  作者:大红袍
--  发布时间:2016/3/3 17:04: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.Replace("[aaabbbccc]", e.Form.Controls("Label14").Text)

wrt.Replace("[xxxyyyzzz]", e.Form.Controls("Label15").Text)


wrt.Build() \'生成报表
wrt.Show() \'显示报表