以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 二维码扫描信息左对齐 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149611) |
-- 作者:nxdx112 -- 发布时间:2020/5/7 15:05:00 -- 二维码扫描信息左对齐 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编辑过]
|