关于条码条码打印问题咨询？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了个条码打印，是在一条边带上打印两列，条码的长宽是10*10，然后我打印代码如下，缩放比例0.28，纸张高度10，纸张宽度22.6，因为中间有一列距2.6，然后打印出来的效果如下图：

两个条码都往中间靠拢了，不能两边距中，这个中间的列距是需要怎么调呀，我现在用的是两张纸打印，还有三列纸，四列纸，头都有点大，求助老师指点，谢谢！

此主题相关图片如下：微信图片_20210514073645.jpg

Dim doc As New PrintDoc

Dim rg As New prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.qrcode '指定打印的条码类型: QRcode 指二维码

Dim tb As New prt.RenderTable() '定义一个表格对象

doc.Body.Children.Add(tb) '将表格对象加入到报表中

Dim i As Integer = 0

For Each r As Row In Tables("sy_tmprint").rows '指定打印的表

bar.Code = r("tmdycode") '指定打印的条码字段

bar.Text = "SN " & bar.code '需要在条码下方显示的打印同容

Bar.TextAlignment = Barpro.Alignment.BelowCenter

rg = new prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,0,0,0.28) '条码比例缩放控制

Dim ra As prt.RenderArea = tb.Cells(i \ 2, i Mod 2).area '指定要打印的列数

ra.children.add(rg)

'doc.PageSetting.Width = 22.6 '纸张宽度为22.6毫米

'doc.PageSetting.Height = 10

'doc.PageSetting.Landscape = False '横向打印

i += 1

Doc.Preview()

主题：关于条码条码打印问题咨询？