以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]批量打印条形码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9212)

--  作者:bohe
--  发布时间:2011/3/14 11:40:00
--  [求助]批量打印条形码

请问批量打印条形码,如何用代码绑定字段


--  作者:狐狸爸爸
--  发布时间:2011/3/14 11:48:00
--  

呵呵,能具体点吗?

我没有看懂你的问题。


--  作者:bohe
--  发布时间:2011/3/14 12:00:00
--  

也就是如何批量打印准考证号条形码

 

帮助中有个打印标签和专业的条形码,两者结合我搞不定图片点击可在新窗口打开查看

[此贴子已经被作者于2011-3-14 12:01:14编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/3/14 12:25:00
--  
做个简单的例表上来,具体说明要求和问题所在。
--  作者:bohe
--  发布时间:2011/3/14 17:40:00
--  

图片点击可在新窗口打开查看

 

想把条码里的号批量打成上图的效果,但号是不同的


--  作者:狐狸爸爸
--  发布时间:2011/3/14 17:51:00
--  

例如条码存储在表A的第一列中:

 

Dim doc As New PrintDoc
Dim rbc As prt.RenderBarCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    rbc = New prt.RenderBarCode
    rbc.Height = 25
    rbc.BarCodeType = BarCodeEnum.Code39
    rbc.BarDirection = BarDirectionEnum.Normal
    rbc.Text = r("第一列")
    rbc.ShowText = True
    rbc.Style.Spacing.All = 2
    doc.Body.Children.Add(rbc)
Next
Doc.Preview()


--  作者:bohe
--  发布时间:2011/3/15 8:20:00
--  
老大,用RenderBarCode打出来的条形码不好,条码不能到下面文字部分。图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2011/3/15 8:29:00
--  

那就用BarCodeBuilder:

 

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    bar.text = r("第一列")
    img = new prt.RenderImage
    img.Image =  bar.GetImage
    Doc.Body.Children.Add(img)
Next
Doc.Preview()


--  作者:bohe
--  发布时间:2011/3/15 8:47:00
--  

谢谢,请问GetImage(300)中的300是指打印分辨率吗?

还有关于BarCodeBuilder的详细介绍帮助中找不到。

[此贴子已经被作者于2011-3-15 8:55:42编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/3/15 8:57:00
--  
差不多吧,是DPI来的