和rm9 一样添加到表格里即可
Dim rm9 As New prt.RenderImage '定义一个图片对象
rm9.Image = GetImage("001.png") '设置图片
rt.cells(rt.Rows.Count,0).RenderObject = rm9
Dim rm10 As New prt.RenderImage '定义一个图片对象
rm10.Image = GetImage("001.png") '设置图片
rt.cells(rt.Rows.Count,4).RenderObject = rm10
rt.Rows(rt.Rows.Count-1).Height = 13 & "mm" '设置首行高度为13mm
rt.Cells(rt.Rows.Count-1,0).SpanCols = 3 ''第1行第所有单元格为一个完整单元格.
rt.Cells(rt.Rows.Count-1,4).SpanCols = 4
rt.Rows(rt.Rows.Count-1).Style.GridLines.Bottom = new Prt.LineDef(1,Color.DimGray) '设置下划线为深灰色
加好友 
发短信
Post By：2021/6/15 15:59:00 [显示全部帖子]
