主题：[求助]条形码打印

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

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

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

 

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

 

 

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

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

1.设置起始符为FLASE           Bar.DisplayStartStopChar = False

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

bar.  按TAB看右边精灵提示有介绍.

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

 

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，调整后，行与行之间间距太小了，我刚用手机扫了扫，没有反应，什么原因呢？ 

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

我扫了一下,可以扫到.不过折腾对焦了.十几秒.

隔开一点吧.

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

 

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

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

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

 

这是15号字体：

 

 

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

差距太小看不出吧,不会没效果.