Foxtable(狐表)用户栏目专家坐堂 → [求助]如何指定word报表模版


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

主题:[求助]如何指定word报表模版

帅哥哟,离线,有人找我吗?
victor_lin33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:160 积分:1447 威望:0 精华:0 注册:2016/3/24 19:00:00
[求助]如何指定word报表模版  发帖心情 Post By:2017/11/3 10:27:00 [只看该作者]

老师:
我在出货单打印时,需要实现某些客户用指定的出货单,我的想法是
1.在客户资料档设有列 "出货单别" 用于指定该客户的出货单模版
2.在word模版我设计了3种出货单格式-- 1通用 2.A客户专用 3.B客户专用
我想实现 在该列指定word模版编号(有指定的引用该模版,空白没指定的用通用模版)
然后在打印出货单报表时自动产生对应的出货单...
目前我都还没有用窗口,这样能实现吗?
还是就得设计一个打印出货单的窗口?如果是这样 代码如何写...
找了论坛 没能找到类似的案例...只好请老师指导..!谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/3 11:23:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/scr/2890.htm

类似
dim r as row = tables("客户资料").current
if r isnot nothing then
Dim tm As String  = ProjectPath & "Attachments\" & r("出货单别") & ".doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\" & r("出货单别") & ".doc" '指定目标文件
Dim 
wrt As New WordReport(Tables("出库"),tm,fl'定义一个WordReport
wrt.Build()
 '逐行生成报表
wrt.Show() 
'显示报表
end if

 回到顶部