Foxtable(狐表)用户栏目专家坐堂 → 条形码问题


  共有2098人关注过本帖树形打印复制链接

主题:条形码问题

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
条形码问题  发帖心情 Post By:2020/4/9 10:58:00 [只看该作者]

附页是我的代码和打印出的结果,但是条形码有两个问题:1、老是无法调整条形码的宽度和高度、2、条形码下面的字符串最后面老是有一个字母结尾,我想去掉这个字母。请教如何处理。谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:条形码问题.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/9 11:10:00 [只看该作者]

打开条形码生成器,进行各种设置,然后查看代码

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2020/4/9 13:24:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 104
doc.PageSetting.Height = 54
Doc.PageSetting.LeftMargin = 1
Doc.PageSetting.RightMargin = 1
Doc.PageSetting.TopMargin = 1
Doc.PageSetting.BottomMargin = 1

    Dim n As Integer = CurrentTable.Rows.Count - 1
    For i As Integer = 0 To n
    Dim r As Row = CurrentTable.Rows(i)
    Dim s1 As Integer = Val(r("数量个"))
        Dim ra As New prt.RenderArea
        Dim rt As New prt.RenderText
        ra.Width = "Parent.Width"
        ra.Height = "Parent.height"
        ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never

        Dim Bar As New BarCodeBuilder
        Dim img As prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3 '宽窄比例
bar.barwidth = 0.1 '窄条宽度
Bar.BarHeight = 36 '条码高度
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

            For o As Integer = 1 To s1
                ra = New prt.RenderArea
                ra.Width = "Parent.Width"
                ra.Height = "Parent.height"
                ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
                ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never

'===============以下逐个定义内容
                rt = New prt.RenderText
                rt.Text = r("产品型号")
                rt.x = 2
                rt.y = 1
                rt.Style.Font = New Font("Arial",14,FontStyle.Bold)
                ra.Children.Add(rt)

                '绘制第1条线条
                Dim Line As New prt.LineDef(0.5, Color.black)
                Dim ln As New prt.RenderLine(2,9, 102, 9, Line)
                ra.Children.Add(ln) '将线条加入到报表中

                '绘制第2条线条
                Dim Line2 As New prt.LineDef(0.5, Color.black)
                Dim ln2 As New prt.RenderLine(2,17.2, 102, 17.2, Line2)
                ra.Children.Add(ln2) '将线条加入到报表中

                '绘制第2条型码
                Dim dt1 As String = Format(Date.now,"yyyyMMddHHmmssfff")
                Dim dt2 As String = dt1.substring(2,6) & "-" & dt1.substring(12,4) 
                Bar = New BarCodeBuilder
                img = new prt.RenderImage
                Bar.Code = dt2
                img.Image = bar.GetImage
                img.x = 1.5
                img.y = 18
                ra.Children.Add(img)

                rt = New prt.RenderText
                rt.Text = "1"
                rt.x = 37
                rt.y = 18
                rt.Style.Font = New Font("Arial",14)
                ra.Children.Add(rt)

                rt = New prt.RenderText
                rt.Text = "PC"
                rt.x = 47
                rt.y = 18
                rt.Style.Font = New Font("Arial",14)
                ra.Children.Add(rt)

                rt = New prt.RenderText
                rt.Text = "RUN"
                rt.x = 69
                rt.y = 18
                rt.Style.Font = New Font("Arial",14)
                ra.Children.Add(rt)

                rt = New prt.RenderText
                rt.Text = r("箱号")
                rt.x = 90
                rt.y = 20
                rt.Style.Font = New Font("Arial",14)
                ra.Children.Add(rt)

                rt = New prt.RenderText
                rt.Text = r("销售订单号")
                rt.x = 37
                rt.y = 25
                rt.Style.Font = New Font("Arial",14)
                ra.Children.Add(rt)

                '绘制第3条线条
                Dim Line3 As New prt.LineDef(0.5, Color.black)
                Dim ln3 As New prt.RenderLine(2,33, 102, 33, Line3)
                ra.Children.Add(ln3) '将线条加入到报表中

            Doc.Body.ChildRen.Add(ra)
            Next
    Next
Doc.Preview() '预览报表

我试过上述代码了,我不断调整 Bar.BarRatio、bar.barwidth 、Bar.BarHeight 三个参数的值,条形码大小都不会发生任何变化。
另外,我的第二个问题(见1楼压缩档案里面)不知道是什么原因?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/9 13:56:00 [只看该作者]

看2楼,条码有几十项设置,麻烦全部试一遍,看看每个设置都是干嘛用的

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2020/4/9 15:50:00 [只看该作者]

终于知道是什么原因了:1、Bar.BarRatio = 0.3、bar.barwidth = 0.1、Bar.BarHeight = 36 这些代码放的位置不对,2、不要显示校验码。

 回到顶部