这是别人的二维码设置代码，现在想让扫码显示为左对齐，而非居中显示，怎么设置？
？
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 = 40
ra.height = 40
Dim i As Integer = 0
Dim temp As String = ""
For Each c As Col In CurrentTable.cols
temp = temp & c.name & ":" & r(i) & vbcrlf
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.left '水平居中
ra.Children.Add(rt) '添加到容器中
Doc.Body.Children.Add(ra)
Next
Doc.Preview()
------------
此主题相关图片如下：微信图片_20190701154003.png
[此贴子已经被作者于2019/7/1 15:42:21编辑过]
加好友 
发短信
Post By：2019/7/1 15:42:00 [显示全部帖子]
