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


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

主题：打印条形码问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/4 8:49:00 [显示全部帖子]

模板发上来看看

下面代码放到第2行，不是第一行后面
Dim fl As String = ProjectPath & "Reports\员工资料卡.doc"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/4 17:29:00 [显示全部帖子]

1楼代码测试没有问题，注意不能生成空条码

Dim tm As String = ProjectPath & "Attachments\员工资料卡.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\员工资料卡.doc" '指定目标文件
Dim mg As String = ProjectPath & "Images\条形码.wmf" '约定的图片文件
Dim wrt As New WordReport(Tables("员工"), tm, fl) '定义一个WordReport
For Each r As Row In Tables("员工").Rows '逐行生成报表
    If r.IsNull("编号") = False Then
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.Code39 '条形码
        bar.Code = r("编号") '员工编号列
        bar.SaveImage(mg, 300)
        wrt.BuildOne(r)
    End If
Next

wrt.Show() '显示报表
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/5 8:36:00 [显示全部帖子]


dim r As Row In Tables("员工").current
    If r isnot nothing andalso r.IsNull("编号") = False Then
Dim tm As String = ProjectPath & "Attachments\员工资料卡.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\员工资料卡.doc" '指定目标文件
Dim mg As String = ProjectPath & "Images\条形码.wmf" '约定的图片文件
Dim wrt As New WordReport(Tables("员工"), tm, fl) '定义一个WordReport
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.Code39 '条形码
        bar.Code = r("编号") '员工编号列
        bar.SaveImage(mg, 300)
        wrt.BuildOne(r)
wrt.Show() '显示报表
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/5 9:45:00 [显示全部帖子]

很简单的笔误，自己学会判断一下

dim r As Row = Tables("员工").current
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/5 10:23:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/5 10:53:00 [显示全部帖子]

条码要到报表事件处理：http://www.foxtable.com/webhelp/topics/2338.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/7 9:58:00 [显示全部帖子]

指模板文件的名称：http://www.foxtable.com/webhelp/topics/1953.htm

比如有个模板保存为execl后文件名叫【出库单.xls】,那么判断时候代码就是

If e.Book.TempLate = "出库单" Then
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询