如何生成条码，在WORD中打印？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何生成条码，在WORD中打印？

共有5652人关注过本帖树形打印复制链接主题：如何生成条码，在WORD中打印？

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/3 9:43:00 [显示全部帖子]

Dim doc As New PrintDoc

Dim img As prt.RenderImage

Dim Bar As BarCodeBuilder

For Each r As Row In Tables("表A").Rows

Bar = New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code39

Bar.BarRatio = 0.3

Bar.BarHeight = 8

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

bar.Code = r("条码")

img = New prt.RenderImage

img.Image = bar.GetImage

Doc.Body.Children.Add(img)

Doc.Preview()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/3 10:11:00 [显示全部帖子]

"条码"列没有数据

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/3 13:59:00 [显示全部帖子]

那这个条码列没有什么用处。2楼的代码改为从编号列取值：bar.Code = r("条码编号")

word报表没法设置动态图片，建议使用专业报表，或者execl：http://www.foxtable.com/webhelp/topics/2338.htm

主题：如何生成条码，在WORD中打印？