主题：用这个代码打印时，二维码特别小，是什么原因？

Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("e.ProjectPath & data\二维码.png") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表

用这个代码打印时，二维码特别小，是什么原因？