Foxtable(狐表)用户栏目专家坐堂 → 打印选中的行


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

主题:打印选中的行

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


加好友 发短信
等级:童狐 帖子:290 积分:2577 威望:0 精华:0 注册:2020/6/28 8:43:00
打印选中的行  发帖心情 Post By:2025/2/27 8:33:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印.txt



在以上代码,现在的是每行生成一个PDF文件 。  如果我想把我选中的多行,全部打印成一个文件 ,要怎么样修改代吗?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112430 积分:572424 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/27 8:46:00 [只看该作者]

把模板里的<ALL>标记去掉,然后改改打印代码

          With Tables("图档修改记录")
                    Dim n As Integer = .Rows(0)("_Identify")
                    Dim name As String = .Rows(0)("项目编号") & "_" & .Rows(0)("模具编号") & "_" & .Rows(0)("D3图纸") & "_" & n
                    Dim Book As New XLS.Book(mb)
                    Dim fl As String = Path & "\" & name & "设计修改通知书.pdf"
                    Book.Build()
                    Book.SaveToPdf(fl)
            End With

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


加好友 发短信
等级:童狐 帖子:290 积分:2577 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2025/2/27 9:03:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设计修改通知书模版.xls

不对啊,这样打印的都是Row(0)行啊。不是我选中的多行。

我把我的模版也上传了。

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112430 积分:572424 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/27 9:10:00 [只看该作者]

不可能打印的都是Row(0)行,只是文件名为Row(0)行的数据,文档内容肯定是选择的多行,除非只选了一行。

如果不同行的文件名称要不一样,就不适合全部打印到一个文件里,只能按原来的方法打印为多个文件

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


加好友 发短信
等级:童狐 帖子:290 积分:2577 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2025/2/27 9:23:00 [只看该作者]

把以下的注释掉就可以了:



图片点击可在新窗口打开查看此主题相关图片如下:111.jpg
图片点击可在新窗口打开查看


                    但是,我需要图片啊。应该要怎么样修改呢?

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112430 积分:572424 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/27 9:29:00 [只看该作者]

到列属性里设置好即可:http://www.foxtable.com/webhelp/topics/1407.htm

 回到顶部