老师,我的一个打印证件的窗口更新前可以的,现在预览没问题,但是现在证件的图像打印不出来

 人物照片打印不出来,其余的没问题.但是另外一个项目又可以,两个窗口完全一样的

此主题相关图片如下：202142822312886121.png

老师，如何将图片中的公章放到标签的年龄（46）的位置，并置于底层？谢谢！

此主题相关图片如下：微信图片_20210429161250.jpg

Dim r As Row = Tables("从业人员健康检查表").Current
If r IsNot Nothing Then
    Dim doc As New PrintDoc \'定义一个报表
    Dim ra As New prt.RenderArea
    Dim rt As prt.RenderText
    ra.Width = 86 \'宽度53毫米
    ra.Height = 54 \'高度24毫米
    ra.Style.Spacing.All = 1
    ra.Style.Font = New Font("宋体", 9, FontStyle.Bold)
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止垂直分割
    Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中
   
    rt = New prt.RenderText
    rt.Text = r("编号")
    rt.X = 16
    rt.Y = 18
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("姓名")
    rt.X = 16
    rt.Y = "Prev.Bottom + 2"   \'垂直坐标和前一对象相同
    ra.Children.Add(rt)
   
    Dim rm As New prt.RenderImage \'定义一个图片对象
    rm.Image = GetImage("D:\\Images\\gongzhang.png") \'设置图片
    rm.Width = 16 \'宽度等于页面宽度
    rm.Height = 16 \'高度由图片大小自动决定
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
    doc.Body.Children.Add(rm) \'将图片对象加入报表
   
   
    rt = New prt.RenderText
    rt.Text = r("性别")
    rt.X = 16
    rt.Y = "Prev.Bottom + 2"  \'垂直坐标和前一对象相同
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("年龄")
    rt.X = 43
    rt.Y = "Prev.Bottom -4"  \'垂直坐标和前一对象相同
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("体检机构")
    rt.X = 16
    rt.Y = "Prev.Bottom + 8"
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("体检日期") & " 至"
    rt.X = 16
    rt.Y = "Prev.Bottom + 2"
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("到期日期")
    rt.X = 38
    rt.Y = "Prev.Bottom - 3.5"
    ra.Children.Add(rt)
    doc.PageSetting.Landscape = True \'横向打印
    Doc.Preview() \'预览报表
End If