Foxtable(狐表)用户栏目专家坐堂 → 我一份文件要打印5份分别给5个人,如何分别加入5个人的姓名一次性打印呢?


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

主题:我一份文件要打印5份分别给5个人,如何分别加入5个人的姓名一次性打印呢?

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


加好友 发短信
等级:婴狐 帖子:7 积分:128 威望:0 精华:0 注册:2019/12/15 13:25:00
我一份文件要打印5份分别给5个人,如何分别加入5个人的姓名一次性打印呢?  发帖心情 Post By:2019/12/16 0:38:00 [显示全部帖子]

我一份文件要打印5份分别给五个人,如何分别加入5个人的姓名一次性打印呢?
我的打印信息和模板已做好,但是要根据我多选的人名分别打出包含对应人名的文件,该如何操作呢?

[此贴子已经被作者于2019/12/16 0:38:50编辑过]

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


加好友 发短信
等级:婴狐 帖子:7 积分:128 威望:0 精华:0 注册:2019/12/15 13:25:00
  发帖心情 Post By:2019/12/17 14:03:00 [显示全部帖子]

谢谢大佬指点。我看了您的回复后学习了不少,有点不同的是我想的是在一行列表里设置个复选框,通过复选人名设定该行信息打印总份数和设置每份文件打印送给的对象,我看了您的回复后,自己试着写了下:
Dim nms As String = Tables("总表").Rows(2)("抄送人")
Output.Show(nms)
Dim nm() As String = nms.Split(",")
Output.Show (nm(0))
Dim tm As String  = ProjectPath & "Attachments\批抄打印.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\批抄打印.doc" '指定目标文件
Dim wrt As New WordReport(Tables("总表"),tm,fl)
For i As Integer = 0 To nm.Length - 1
    Output.Show (i)
    wrt.Replace("[抄送人]",nm(i) ) '替换模板中的抄送标记
   Next
wrt.Show() '显示报表

这代码有几个问题想请教下,一是我想打印选定行,该怎么写?二是我在命令窗口下方的显示栏中看到"i"循环了0,1,2三次,但生成的显示报表只有nm(0)的这个抄送人的word,没有将抄送其它人的word生成出来是为什么?

 回到顶部