此主题相关图片如下:捕获3.png此主题相关图片如下:捕获2.png代码如下:
Dim nd As String = e.Form.Controls("ComboBox1").TextDim sd As String = e.Form.Controls("ComboBox2").TextDim Doc As New PrintDoc '定义一个报表对象Dim rt As prt.RenderText '定义一个文本对象Dim rm As new prt.RenderImage '定义一个图片对象For Each t As DataRow In DataTables("生存认证").Select("年度 = '" & nd & "' or 归属时期 = '" & sd & "'") '条件定义图片 rt = new prt.RenderText '确认定义一个文本对象 rt.text = "生存认证资料_" &"姓名:" & t("姓名") & " 认证年度:" & t("年度") & " 归属时期:" & t("归属时期") '设置文本对象内容 rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '设置文本对象水平居中 rt.Style.Fontsize = 16 '设置字体大小为16号 Doc.Body.Children.Add(rt) rm = new prt.RenderImage '确认定义一个图片对象 rm.Width = "100%Parent" '设置图片尺寸为容器(页面)尺寸 rm.Height = "85%Parent" rm.image = getimage(ProjectPath & "attachments/" & t("生存认证图片")) '设置图片 rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片居中显示 rm.Style.Borders.All = new prt.LineDef(0.3,Color.red) '设置红色边框线 rm.Style.Spacing.Bottom = 8 '设置图片垂直对齐位置为靠底8mm rm.BreakAfter = prt.BreakEnum.Page Doc.Body.Children.Add(rm) '将图片对象加入报表NextDoc.Preview() '预览报表内容