上面没有看到有打印头像的代码
公章自己调整xy到合适位置
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("D:\Images\gongzhang.png") '设置图片
rm.Width = 16 '宽度等于页面宽度
rm.Height = 16 '高度由图片大小自动决定
rm.x = 30
rm.y = 10
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm) '将图片对象加入报表