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

'填入圖片

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

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