试了下你的方法
Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 215 '纸张宽度为215毫米
doc.PageSetting.Height = 280 '纸张高度为280毫米
Dim rg1 As New prt.RenderGraphics()
Dim g As Graphics = rg1.Graphics
g.DrawImage(getImage(ProjectPath & "bin\TempFiles\工单.png" ),200,100) ''不带数字参数无法编译 帮助里说可以不带参数,但是去掉参数无法通过编译
rg1.x = 5
rg1.y = 15
Doc.Body.Children.Add(rg1)
Doc.Preview()