以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  何如设置打印文字和图片在通一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103963)
--  作者：llh0824
--  发布时间：2017/7/20 13:01:00
--  何如设置打印文字和图片在通一行
                rs = New prt.RenderText() \'再次定义一个文本对象
                rs.Text =  "日期:" & CurRow("日期") & New String(" ",8) & "领料部门:" & CurRow("部门") & New String(" ",8) & "单据编号:" & CurRow("单据编号") & Chr(10)
                rs.Style.Font = New Font("宋体",10) \'设置文本对象的字体
                doc.Body.Children.Add(rs) \'将文本对象加入到表格中
                
                Dim nm As String = currow("单据编号") & ".jpg"
                rm = new prt.RenderImage()
                rm.Image = getimage(projectpath & "images\\" & nm)
                rm.BreakBefore = False
                rm.Height = 50
                rm.Width = 50
                rm.Style.ImageAlign.StretchHorz = False
                rm.Style.ImageAlign.StretchVert = False
                Doc.body.Children.Add(rm)
请教一下各位老师，代码该如何修改，把图片放在日期，部门和单据编号的同一行
--  作者：有点甜
--  发布时间：2017/7/20 14:32:00
--  

参考代码

 

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() \'预览