Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
Dim ewm As WinForm.BarCode = e.Form.Controls("二维码")
Dim bmp As new bitmap(ewm.GetImage, 100, 100)rm.Image = bmp
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览
加好友 
发短信
Post By：2015/12/21 10:05:00 [显示全部帖子]
