If CurrentTable.ShowCheckBox = False Then
messagebox.show("请先点击'打印前置'按钮,在想要打印二维码的行的复选框里打√,谢谢!","友情提示")
Else
Dim doc As New PrintDoc
Dim Bar As New BarCodeBuilder
Dim rt As new prt.RenderText
Bar.Symbology = Barpro.Symbology.QRCode
Bar.BarRatio = 0.3
Bar.BarWidth = 1
Bar.BarHeight = 1
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In CurrentTable.GetCheckedRows
Dim ra As New prt.RenderArea
ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
ra.width = 39
ra.height = 48
Dim i As Integer = 0
Dim temp As String = ""
For Each c As Col In CurrentTable.cols
temp = temp & "(" & i+1 & ")" & c.name & ":" & r(i) & ";"
i = i + 1
Next
bar.Code = temp.Substring(0,temp.length-1)
Dim rg1 As New prt.RenderGraphics()
rg1.Graphics.DrawImage(bar.GetImage,0,0,120,120)
rg1.Graphics.DrawImage(getImage("archives.ico"),45,45,30,30)
ra.Children.Add(rg1)
rt = New prt.RenderText
rt.Text = "档号:" & r("档号")
rt.Width = 50
rt.Height = 5
'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
ra.Children.Add(rt) '添加到容器中
Doc.Body.Children.Add(ra)
Next
Doc.Preview()
End If
加好友 
发短信
Post By：2014/2/24 15:17:00 [只看该作者]
