主题：[求助] 窗口打印

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

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

 

 

 

 

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

 

 

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

老师，如何将图片中的公章放到标签的年龄（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