主题：何如设置打印文字和图片在通一行

参考代码

Dim doc As New PrintDoc '定义一个报表对象
Dim ra As new prt.RenderArea
Dim rt As new prt.RenderText
rt.text = "123456kkk"
rt.x = 0
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("d:\test.jpg")
rm.x = 20
rm.width = 50
ra.children.add(rt)
ra.children.add(rm)
doc.Body.Children.Add(ra) '将图片对象加入报表
Doc.Preview() '预览