'打印现场照片页
Dim rt2 As New prt.RenderTable() '定义一个表格对象
Dim rx2 As New prt.RenderText '定义一个文本对象
Dim ra2 As New prt.RenderArea '定义一个容器
ra2.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止容器因为分页而被垂直分割
'设置二级标题
rx2.text = "公司继续教育培训记录-现场照片"
rx2.Style.FontSize = 14 '大体大小为18磅
rx2.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx2.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离5毫米
ra2.Children.Add(rx2) '加入到容器中
'设置表格样式
rt2.Rows.Count = 1 '设置总行数
rt2.Cols.Count = 1 '设置总列数
rt2.Height = 250 '设置表格的高度
rt2.Style.GridLines.All = New prt.LineDef(0.3,Color.blue)
'设置表格样式
rt2.Style.GridLines.All = New prt.Linedef '设置网格线
Dim rw2 As prt.Renderimage '定义一个图片对象
Dim lst As List(of String) = rw.DataRow.Lines("现场照片")
msgbox(rw.DataRow("现场照片"))
Dim p As Integer = 0
For k As Integer = 0 To lst.Count - 1 Step 2
rw2 = New prt.Renderimage '定义一个图片对象
rw2.Image = GetImage(lst(k))
rw2.Width = 100
rw2.Height = 120
rt2.Cells(p,0).RenderObject = rw2 '将单元格内容设置为图片对象rm
If k+1 < lst.Count Then
rw2 = New prt.Renderimage '定义一个图片对象
rw2.Image = GetImage(lst(k+1))
rw2.Width = 100
rw2.Height = 120
rt2.Cells(p,1).RenderObject = rw2 '将单元格内容设置为图片对象rm
End If
p + = 1
Next
ra2.Children.Add(rt2) '将表格对象加入到报表中
Doc.Body.ChildRen.Add(ra2) '将容器加入到报表中Next
加好友 
发短信
Post By：2020/3/15 21:28:00 [显示全部帖子]
此主题相关图片如下：捕获.jpg
