Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格里有1张以上图片如何依序打印图片出来


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

主题:[求助]单元格里有1张以上图片如何依序打印图片出来

美女呀,离线,留言给我吧!
JoyGum
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:3617 威望:0 精华:0 注册:2013/12/5 7:40:00
[求助]单元格里有1张以上图片如何依序打印图片出来  发帖心情 Post By:2023/3/25 14:37:00 [只看该作者]

请教老师单元格里有1张以上图片如何依序打印图片出来.谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:2_page1.png
图片点击可在新窗口打开查看

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


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

什么报表?execl?专业报表?

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:3617 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2023/3/25 16:30:00 [只看该作者]

老师好!是专业报表
'填入圖片

Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rm As New prt.RenderImage()  '定义一个图片对象
Dim dr1 As DataRow = DataTables("MakeSchedule").Find("[WorkNo] = '" & Tables("Schedule").Current("WorkNo") & "'")
Dim pth As String = ProjectPath & "Attachments\产品图档\" & dr1("Photos") 
rm.Image = GetImage(pth) '请改为实际的图标名称和路径 
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 2 '设置行数
rt.Cols.Count = 4 '设置列数
rt.Height = 80 '设置表格的高度
rt.Cells(0, 0).RenderObject = rm '将单元格内容设置为图片对象rm

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/25 17:04:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2717.htm

大概这样

Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rm As prt.RenderImage()  '定义一个图片对象
Dim dr1 As DataRow = DataTables("MakeSchedule").Find("[WorkNo] = '" & Tables("Schedule").Current("WorkNo") & "'")
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 2 '设置行数
rt.Cols.Count = 4 '设置列数
rt.Height = 80 '设置表格的高度
Dim fls As List(of String) = dr1.lines("Photos")
for i as integer = 0 to fls.count - 1
Dim pth As String = ProjectPath & "Attachments\产品图档\" & fls(i)
 rm = new prt.RenderImage()
rm.Image = GetImage(pth) '请改为实际的图标名称和路径 
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
rt.Cells(0, i).RenderObject = rm
next

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:3617 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2023/3/25 17:33:00 [只看该作者]

谢谢老师!

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:3617 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2023/3/25 18:58:00 [只看该作者]

老师好!图片管理器里有2张图片,原来我的代码打印出来是空的,如果只有1张图片就能打印出来.刚刚试试老师的出现以下情形.
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20230325184428.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/26 20:04:00 [只看该作者]

Dim rm As prt.RenderImage()  '定义一个图片对象
改为
Dim rm As prt.RenderImage  '定义一个图片对象

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:502 积分:3617 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2023/3/27 16:04:00 [只看该作者]

感谢老师可以了。

 回到顶部