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)
请教一下各位老师，代码该如何修改，把图片放在日期，部门和单据编号的同一行
加好友 
发短信
Post By：2017/7/20 13:01:00 [显示全部帖子]
