Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共17 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]批量打印条形码

1楼
bohe 发表于:2011/3/14 11:40:00

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

2楼
狐狸爸爸 发表于:2011/3/14 11:48:00

呵呵,能具体点吗?

我没有看懂你的问题。

3楼
bohe 发表于:2011/3/14 12:00:00

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

 

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

[此贴子已经被作者于2011-3-14 12:01:14编辑过]
4楼
狐狸爸爸 发表于:2011/3/14 12:25:00
做个简单的例表上来,具体说明要求和问题所在。
5楼
bohe 发表于:2011/3/14 17:40:00

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

 

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

6楼
狐狸爸爸 发表于: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()

7楼
bohe 发表于:2011/3/15 8:20:00
老大,用RenderBarCode打出来的条形码不好,条码不能到下面文字部分。图片点击可在新窗口打开查看
8楼
狐狸爸爸 发表于: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()

9楼
bohe 发表于:2011/3/15 8:47:00

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

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

[此贴子已经被作者于2011-3-15 8:55:42编辑过]
10楼
狐狸爸爸 发表于:2011/3/15 8:57:00
差不多吧,是DPI来的
共17 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.