现状：选中行数据条形码打印，基本功能已经有了，还有以下一些问题：

1、我采用的是code39，但是会带上* 和校验符号，如何去掉*和校验符号？

2、标签行列间距调不好，每行4个，标签之间保持一定的距离，因为打印要裁减，标签大小的话基本是我已经设置的样子；

就这2个问题，下面是我已经做的案例。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件条形码.rar

帮助文档中没有找到更多BarCodeBuilder函数信息，无从下手啊，左右边距上下边距这些函数或者说属性是什么。

这样写，调整红色代码就行了。

If CurrentTable.ShowCheckBox = False Then
    messagebox.show("请先点击\'打印前置\'按钮,在想要打印二维码的行的复选框里打√,谢谢!","友情提示")
Else
    Dim doc As New PrintDoc
    Dim Bar As New BarCodeBuilder
    Dim rt As new prt.RenderText
    Bar.Symbology = Barpro.Symbology.Code39
    Bar.DisplayStartStopChar = False
    \'Bar.BarRatio = 0.3
    \'Bar.BarWidth = 1
    \'Bar.BarHeight = 1
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

    For Each r As Row In CurrentTable.GetCheckedRows
        Dim ra As New prt.RenderArea
        ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止垂直分割
        ra.width = (Doc.PageSetting.Width.value - Doc.PageSetting.LeftMargin.value - Doc.PageSetting.RightMargin.value) / 4
        ra.height = 20
        bar.code = r("档号")
       
        Dim rg1 As New prt.RenderGraphics()
        rg1.Graphics.DrawImage(bar.GetImage,0,0,150,90)
        ra.Children.Add(rg1)
       
        \'rt = New prt.RenderText
        \'rt.Text = r("档号")
        \'rt.Width = 35
        \'rt.Height = 10
        \'ra.Children.Add(rt) \'添加到容器中
       
        Doc.Body.Children.Add(ra)
    Next
    Doc.Preview()
End If

标签行的距离ok，调整后，行与行之间间距太小了，我刚用手机扫了扫，没有反应，什么原因呢？ 

现在我又调整了下，还一个问题，就是文本的字体，我设置了宋体8号，还有各种字号都试了，效果还是这样：

此主题相关图片如下：而.jpg

感觉    Bar.Font = New Font("宋体",8)

作用起不了啊。好像是固定的一样。

这是15号字体：