If Tables("卷宗入库").Current IsNot Nothing Then
Dim CurRow As Row = Tables("卷宗入库").Current
Dim drs1 = DataTables("款物明细").Select("案件编号 = '" & currow("卷宗编号") & "'")
Dim doc As New PrintDoc
Dim rm As prt.RenderImage '定义一个图片对象
For i As Integer = 0 To drs1.count-1
Dim r = drs1(i)
rm = new prt.RenderImage
rm.Image = GetImage( r("二维码")) '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报
Next
Doc.Preview() '预览
End If
加好友 
发短信
Post By：2017/11/11 15:23:00 [显示全部帖子]
