专家坐堂-专业报表的二维码为何两侧有白边Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

cell = t.Cells(1,1).Area

Dim rg As prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = lsn

rg = New prt.RenderGraphics

rg.Width = 28

rg.Height = 28

rg.Style.BackColor = Color.Red

rg.Style.Padding.Top = 0.5

rg.Style.Padding.Left = 0.5

rg.Style.Padding.right = 0.5

rg.Style.Padding.Bottom = 0.5

Bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)

cell.Children.Add(rg)

rt = New prt.RenderText()

rt.Style.BackColor = Color.yellow

\'rt.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平左对齐

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中

rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中

rt.Height = 4

rt.Style.Font = New Font("宋体", 9, FontStyle.Bold) \'设置字体

rt.Text = sn

cell.Children.Add(rt)