主题：[求助]二维码打印有关问题，急~~~

以下内容为程序代码:

1 Dim doc As New PrintDoc
2 Dim img As prt.RenderImage
3 Dim Bar As New BarCodeBuilder
4 Dim rt As new prt.RenderText
5 Bar.Symbology = Barpro.Symbology.QRCode
6 Bar.BarRatio = 0.3
7 Bar.BarWidth = 5
8 Bar.BarHeight = 5
9 Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
10 For Each r As Row In CurrentTable.GetCheckedRows
11 Dim ra As New prt.RenderArea
12 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
13 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
14 ra.width = 50
15 ra.height = 60
16 rt = New prt.RenderText
17 rt.Text = "档号:" & r("档号")
18 rt.X = 5
19 rt.Y = 2
20 ra.Children.Add(rt) '添加到容器中
21 Dim i As Integer = 0
22 Dim temp As String = ""
23 For Each c As Col In CurrentTable.cols
24 temp = temp & "(" & i+1 & ")" & c.name & ":" & r(i) & ";"
25 i = i + 1
26 Next
27 bar.Code = temp.Substring(0,temp.length-1)
28 img = new prt.RenderImage
29 img.Image = bar.GetImage
30 img.Width = 45
31 img.height = 45
32 img.Style.Spacing.All = 2
33 img.Y = 5
34 ra.Children.Add(img)
35 Doc.Body.Children.Add(ra)
36 Next
37 Doc.Preview()