Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("准考证").Rows
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code ="姓名:" & r("姓名") & Chr(13) & Chr(10) & "性别:" & r("性别") & Chr(13) & Chr(10) & "年级:" & r("年级")& Chr(13) & Chr(10) & "班级:" & r("班级")& Chr(13) & Chr(10) & "考场:" & r("考场")& Chr(13) & Chr(10) & "座位号:" & r("座位号")& Chr(13) & Chr(10) & "准考证号:" & r("准考证号")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
bar.SaveImage(ProjectPath & "Attachments\准考证\二维码\" & r("班级") & r("姓名") & "的" & "二维码.jpg")
rg.Style.Spacing.All = 13
Doc.Body.Children.Add(rg)
Next
messagebox.show("学生的考试二维码信息已经处理完成!","友情提示")
For Each dr As DataRow In DataTables("准考证").datarows
dr("二维码") = dr("班级")& dr("姓名") & "的" & "二维码.jpg"
Next
二维码扫描出来的是居中，如何使每条信息左对齐
[此贴子已经被作者于2020/5/7 16:02:24编辑过]
加好友 
发短信
Post By：2020/5/7 15:05:00 [只看该作者]
