主题：[求助]二维码打印按钮代码

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
Dim ewm As WinForm.BarCode = e.Form.Controls("二维码")
rm.Image = ewm.GetImage
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

'doc.Print()