Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单元格里多个图片如何转成PDF打印


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

主题：单元格里多个图片如何转成PDF打印
帅哥哟，离线，有人找我吗？
xuzihang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		单元格里多个图片如何转成PDF打印  发帖心情 Post By：2021/7/24 16:24:00 [只看该作者]

请问老师，单元格里多个图片如何转成PDF打印，该怎么设置
我是按照Excel报表做的，但是不行，
此主题相关图片如下：qq图片20210724161819.png
按此在新窗口浏览图片
e/2021-7/202172416225818255.png" target="_blank">点击浏览该文件


With Tables("图片明细")
    .Select(0,0, .Rows.Count -1, .Cols.Count -1)
End With

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\pz.xlsx")
Dim fl As String = ProjectPath & "Reports\tupian.pdf"
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
 Proc.Start()

该怎么设置
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/24 16:26:00 [只看该作者]

这个是报表附件

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/24 16:31:00 [只看该作者]

模板文件发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/24 16:34:00 [只看该作者]

这个是模板

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/24 16:39:00 [只看该作者]


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


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/24 16:44:00 [只看该作者]

一个单元格多个图片的，不好使用execl模板处理，建议使用专业报表：http://www.foxtable.com/webhelp/topics/1181.htm

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/24 17:22:00 [只看该作者]

蓝老师，没太明白怎么设置单元格里的那么多图片，还有不打印了只是把一个单元格里的 全部图片 生成一个pdf？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/24 17:31:00 [只看该作者]

比如：

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As prt.RenderImage '定义一个图片对象
For Each r As Row In Tables("图片明细").Rows
    For Each s As String In r.DataRow.Lines("图片")
        rm = New prt.RenderImage
        rm.Image = GetImage(s) '设置图片
        rm.Width = "Parent.Width" '宽度等于页面宽度
        rm.Height = "Auto" '高度由图片大小自动决定
        rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
        doc.Body.Children.Add(rm) '将图片对象加入报表
    Next
Next
doc.SavePDF(fl)
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/24 18:22:00 [只看该作者]

谢谢蓝老师，非常感谢

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2021/7/25 7:36:00 [只看该作者]

蓝老师：
只对子表 “图片明细” 里一行中的 [图片] 列一个 单元格 里全部图片转成PDF，不要子表全部行的；
或者说图片管理器中显示的全部图片生成PDF，因为它对应的就是一个单元格。
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询