- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于条码条码打印问题咨询？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165330)
-- 发布时间：2021/5/14 7:52:00
-- 关于条码条码打印问题咨询？
做了个条码打印，是在一条边带上打印两列，条码的长宽是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
Next
Doc.Preview()
-- 发布时间：2021/5/14 8:31:00
--
1、左右边距设置一下：http://www.foxtable.com/webhelp/topics/1192.htm