Dim tb As Table = Tables("出库查询_出库副表")
If tb.Current Is Nothing Then '如果表为空
MessageBox.Show("请按领取单位和出库时间查询!")
Else
Dim cnt As Integer = DataTables("出库").GetValues("领取单位",Tables("出库查询_出库副表").Filter).count '列出table 不同项列表
If Cnt >1 Then '如果不是同一领取单位
MessageBox.Show("请分领取单位打印!")
Else
Dim Customers As List(Of String())
Customers = Tables("出库查询_出库副表").DataTable.GetValues("批签发|通关单",Tables("出库查询_出库副表").Filter)
For Each Customer As String() In Customers
If Customer(0) > "" Then
Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
rm.image = getimage("D:\用户目录\Documents\Scanned Documents\"& Customer(0) &".JPG")
rm.y = 10
rm.x = 10
rm.Width = "130%Parent" '设置尺寸为容器(页面)尺寸
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.KeepAspectRatio = True '保持比例
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览
'Doc.Print()
End If
If Customer(1) > "" Then
Dim doc2 As New PrintDoc
Dim rm2 As New prt.RenderImage
rm2.image = getimage("D:\用户目录\Documents\Scanned Documents\"& Customer(1) &".JPG")
rm2.y = 10
rm2.x = 10
rm2.Width = "130%Parent" '设置尺寸为容器(页面)尺寸
rm2.Height = "Auto" '高度由图片大小自动决定
rm2.Style.ImageAlign.KeepAspectRatio = True '保持比例
doc2.Body.Children.Add(rm2) '将图片对象加入报表
Doc2.Preview() '预览
End If
Next
End If
End If
加好友 
发短信
Post By：2014/2/21 20:12:00 [显示全部帖子]
