简介面向 .NET Windows Forms 开发者的条形码生成与打印示例包围绕微软 Barcode Control 9.0 演示在桌面程序中集成 Code 39、Code 128、EAN-13 等常见条码适合为库存、物流、票据业务补充条码能力的初、中级开发者参考。压缩包共 30 个文件约 57KB以 6 个 C# 源码为核心配合 4 个 DLL、3 个 EXE、2 个 resx 资源文件及解决方案、项目配置保留了一个可直接打开的 Windows Forms 示例工程内含窗体设计器、资源文件和程序入口便于对照学习控件初始化、界面布局、事件绑定与运行调试。已有 6438 人学习对控件入门、示例复现和快速验证具有一定参考价值。读者可理解控件拖放、属性设置、数据绑定、事件绘制、打印输出和校验位计算等环节并借助生成方法、文本与颜色属性扩展条码样式和业务逻辑观察实际生成与打印效果降低整体集成成本。1. 一个 ActiveX 控件撑起的老方案为什么还在用 9.0 版生成条形码接手一套老标签打印系统时最容易被忽略的一格就是条码。模板里那个叫 microsoft barcode control 9.0 的控件值绑在字段上打出来能过扫码枪交接的人只留一句“那格别动”于是谁也不敢碰。它本质是一个 ActiveX 控件落地文件是 MSBCODE9.OCX用 COM 接口把「一串字符 → 一张条码图形」封装掉宿主可以是 Excel、Access也可以是任何支持 OLE 容器的程序。条形码生成及打印这件事它做得不花哨但足够稳离线、不依赖外部服务、不联网、值改了图就变。它的适用场景很具体内网、老工控机、批量标签、每天几百到几千张、扫码枪和打印机都是存量设备。不适合的场景同样具体需要 GS1-128 的应用标识符、需要矢量输出、需要跨平台部署。判断该不该用标准就一个你手里的扫码枪和打印机认不认它输出的这套码制与尺寸。2. 控件本体拆解MSBCODE9.OCX 里装了什么、属性怎么对上码制老控件最大的麻烦不在会不会用而在“手上这一份到底能不能用”。很多人拿到一个 ocx 就往窗体上拖拖不上就以为控件坏了其实八成是位数对不上或者压根没注册。这一章先把控件本体拆开看把可判定的东西列清楚再谈属性怎么和码制对应。2.1 文件、注册项与可用性判定先找文件。MSBCODE9.OCX 通常在 Office 安装目录或者某个老系统的 bin 目录里躺着找到之后不要急着注册先做三件事看文件版本信息里的描述和版本号是否和你的预期一致看数字签名是否完好右键属性里的数字签名页签名损坏的副本不要用看文件大小是否明显异常。这一步是为了排掉被改过、被截断、或者从压缩包里解出来缺字节的副本。然后是位数。32 位控件只能被 32 位宿主加载64 位 Office 加载不了 32 位 ActiveX这是硬约束没有绕路。判断方法很简单看宿主程序的安装路径Program Files (x86)下的一般是 32 位Program Files下的可能是 64 位更准的办法是打开宿主看“关于”里的版本信息或者直接看任务管理器里进程有没有*32后缀。判定项怎么查结论文件完整性属性里的版本信息、数字签名页签名损坏或版本对不上就不要用控件位数宿主安装路径、进程是否带 32 位标记位数不匹配时注册成功也加载不了是否已注册注册表HKEY_CLASSES_ROOT下搜 ProgID搜不到就说明没注册或注册到了别的分支宿主权限是否以管理员运行、是否在受信任位置权限不足时注册会静默失败有一点容易被忽略注册表和文件是两回事。文件在硬盘上不等于系统认识它系统认识它也不等于当前用户有权限实例化它。老系统迁移时最常见的状态是“文件拷过去了注册表没跟过去”表现就是设计期能把控件拖上去运行期报错。2.2 Style、SubStyle 与码制的对应关系这个控件用整数索引来选择码制属性面板里是一个下拉列表代码里就是Style赋一个整数。问题是不同打包版本的索引顺序可能微调所以我不建议凭记忆写死数字正确做法是设计期先把下拉列表从头到尾抄一遍记下每一项对应的索引再写进代码常量里。常见的一批码制大致覆盖这些码制典型长度常见用途注意事项EAN-1313 位零售商品最后一位是校验位需自算EAN-88 位小包装商品同样带校验位UPC-A12 位北美零售与 EAN-13 存在前缀兼容关系Code 39变长工业标识、资产标签字符集窄但容错好、易调试Code 128变长物流、内部流转密度高对打印精度要求高Codabar变长图书、血库等老系统起止符规则特殊SubStyle管的是同一码制下的显示变体比如文字压在条码下方还是上方、要不要显示校验位字符。这个属性在不同版本里行为不完全一致稳妥的做法是先在样张上试一遍再批量用。LineWeight是最容易被误解的一个它不是毫米也不是像素而是一个档位系数控件内部拿它去乘一个基准宽度。所以你在 A 机器上设 1、在 B 机器上设 1出来的物理宽度可能不一样因为两台机器的 DPI 不同。这一点在跨机器部署时是重灾区后面第 5 章会专门说。2.3 先用属性面板做一张试打样张在写任何代码之前我一般强制走一遍设计期验证目的是把“控件本身能用”和“我的代码有问题”这两件事分开。步骤是这样的新建一个空白工作簿从“开发工具 → 插入 → 其他控件”里找到那个条码控件列表里显示的名字通常带 Barcode 字样拖一个到表上在属性面板里把Value填成一串你确定合法的值比如 12 位数字加一位自算校验位把Style选成你要的码制调整控件大小到大约 4 厘米宽、1.5 厘米高然后直接打印到 PDF用扫码枪扫屏幕上的 PDF。这一步能一次排掉三类问题控件没注册拖不出来、码制选错扫出来是乱码或扫不出、尺寸太小扫得出但距离稍远就失败。样张过了再进代码后面所有报错就都归到代码逻辑上排错范围立刻缩小一半。注意试打样张一定要用最终要用的那台打印机打不要用办公室的激光机代替。热敏标签机和激光机在细条还原上差异很大屏幕上好看不等于纸上能扫。3. 注册与宿主接入regsvr32 到 Excel/Access 的落地路径控件能用之后接下来是把它接进宿主。这一章的三节分别对应三种落地形态命令行注册、Excel 里动态创建、Access 里绑定字段。三条路径的共同点是都必须先解决注册和位数差别只在宿主侧的调用方式。3.1 32 位与 64 位注册命令和路径必须对得上注册命令是regsvr32但很多人栽在“用了哪个 regsvr32”。在 64 位 Windows 上C:\Windows\System32\regsvr32.exe是 64 位的C:\Windows\SysWOW64\regsvr32.exe才是 32 位的。名字看着反直觉但事实如此SysWOW64 目录放的是 32 位组件供 32 位进程使用。:: 场景一32 位宿主 32 位控件走 SysWOW64 下的注册器 C:\Windows\SysWOW64\regsvr32.exe /s D:\deploy\MSBCODE9.OCX :: 场景二确认注册是否成功不带 /s 会弹结果框 C:\Windows\SysWOW64\regsvr32.exe D:\deploy\MSBCODE9.OCX :: 场景三卸载重注册排掉旧版本残留 C:\Windows\SysWOW64\regsvr32.exe /u D:\deploy\MSBCODE9.OCX C:\Windows\SysWOW64\regsvr32.exe /s D:\deploy\MSBCODE9.OCX/s是静默模式批量部署脚本里用它避免弹窗卡住流程手工排错时反而要去掉/s因为弹出来的成功/失败提示是第一手信息。/u是反注册处理“明明注册了但加载的还是老版本”这类问题时先反注册再注册比反复覆盖文件有效。参数层面还有一个细节路径里带空格必须加引号不带引号会被拆成两个参数注册器只会报一个含糊的错误码。另外如果注册成功但宿主仍加载不了去看一眼是不是注册到了HKEY_CLASSES_ROOT\Wow6432Node下面而你的宿主是 64 位的这种错配在老系统迁移里非常常见。3.2 Excel VBA 动态创建OLEObjects.Add 与 ProgID 确认Excel 里最灵活的接法是运行期动态创建好处是不用在每个模板里手工拖控件坏处是 ProgID 拼错时报错信息很难看懂。ProgID 怎么确认两个办法。一是在注册表里搜控件名关键字看它下面的 CLSID 子键二是在 Excel 里手工插入一次控件然后打开 VBA 编辑器在立即窗口里敲Sheet1.OLEObjects(1).progID回车直接读出真实值。第二种最快我一般用这个。Sub CreateBarcodeControl() Dim ws As Worksheet Dim ole As OLEObject Set ws ThisWorkbook.Worksheets(标签) ClassType 必须是已注册的 ProgID拼错会抛 1004 Set ole ws.OLEObjects.Add(ClassType:MSBarcode.MSBarcodeCtrl.1, _ Left:60, Top:40, Width:260, Height:70) ole.Name bcMain With ole.Object .Value 6901234567892 先填一个合法值方便肉眼确认 .Style 0 码制索引以属性面板下拉顺序为准 .LineWeight 1 条宽档位不是毫米 End With End Sub这段代码里四个参数值得单独说。ClassType是控件身份必须和注册表里的 ProgID 一字不差大小写不敏感但字符不能错。Left和Top是相对工作表左上角的磅值不是像素。Width和Height是控件外框尺寸注意它决定了条码的显示大小但不直接决定打印出来的物理尺寸——中间还隔着打印缩放。.Object拿到的才是控件本身直接对ole赋.Value会报 438对象不支持该属性。这是新手最容易卡住的一处记住“OLEObject 是壳Object 是芯”就行。3.3 Access 窗体与报表绑定字段和打印时的刷新Access 里的接法和 Excel 不同它更依赖设计期的拖放代码只做少量兜底。做法是在窗体或报表的设计视图里插入这个 ActiveX 控件把它的ControlSource指向数据表里的条码字段然后在“打印”事件里做一次强制刷新。为什么需要刷新因为 ActiveX 控件在报表里是“画”出来的当同一页有多条记录时控件实例可能被复用值改了但图形没重绘打出来就是上一张的条码。这是个经典翻车点表现是“打印预览里对实际打印错位或者重复”。Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next 强制按当前记录重新绑定一次避免实例复用导致的图形不刷新 Me.bcMain.Value Nz(Me!BarCode, ) Me.bcMain.Style 0 On Error GoTo 0 End SubDetail_Format是报表里逐条记录都会触发的事件在这里赋值最稳。Nz是为了兜住空值控件拿到空字符串时通常显示为空不会崩但某些版本会保留上一张图所以空值处理要显式。On Error Resume Next在这里不是为了掩盖错误而是因为格式事件里偶发会碰到控件还没实例化完的情况加一层保护避免整份报表中断。注意Access 报表里控件的尺寸必须用“厘米”思维去调不要用像素思维。报表最终是打到纸上的屏幕上拉多大不重要打印预览里量出来的实际宽度才算数。4. 从 Value 到纸面校验位、模块宽度与批量打印的实现到这一步控件已经能出图了但“能出图”和“能扫”之间还差三件事值本身是否合法、图形尺寸是否落在打印机的还原能力内、批量跑的时候有没有刷新。这一章按这个顺序往下落。4.1 值校验EAN-13 校验位与 Code 39 起止符EAN-13 的最后一位是校验位由前 12 位算出来。控件通常不会替你补校验位你喂 13 位它就照着画喂错了它也不报错结果就是扫码枪读出来校验失败。所以值进控件之前必须自己算一遍。Function Ean13CheckDigit(ByVal s12 As String) As String Dim i As Integer, sum As Long If Len(s12) 12 Then Ean13CheckDigit Exit Function End If 奇数位权重 1偶数位权重 3从第 1 位开始数 For i 1 To 12 If i Mod 2 1 Then sum sum CLng(Mid(s12, i, 1)) Else sum sum CLng(Mid(s12, i, 1)) * 3 End If Next i Ean13CheckDigit CStr((10 - (sum Mod 10)) Mod 10) End Function权重的取法容易记反。从左边第一位开始奇数位乘 1、偶数位乘 3累加后对 10 取余再用 10 减余数结果再对 10 取余——最后那个Mod 10是为了处理余数为 0 的情况此时校验位是 0 而不是 10。CLng而不是CInt是因为 12 位数字加权后虽然不会溢出 Integer但保持 Long 的习惯在批量处理时更省心。Code 39 的坑不在校验位在起止符。这个码制规定用*作为起始和终止标记而控件一般会自动补。如果你的数据源里已经带了*再让控件补一次打出来就是双星号扫码枪读出来会多两个字符。处理办法很简单入库前统一Replace(s, *, )清一遍。Code 128 则要注意字符集切换。纯数字用 Code 128C 密度最高一个字符对两个数字混了字母就得切 Code 128B。控件对字符集的自动判断不一定符合你的预期值里带空格、带连字符时尤其要试打确认。4.2 尺寸换算X 尺寸、模块宽度与静区条码能不能扫七分靠尺寸。这里有三个概念要分开X 尺寸是窄单元的名义宽度毫米模块宽度是打印到纸上时一个窄单元占多少个打印点静区是条码左右两侧必须留白的宽度通常是 10 倍 X 尺寸。换算公式不复杂模块宽度(点) X尺寸(mm) ÷ 25.4 × 打印机DPI举例X 取 0.33 毫米、打印机 203 DPI算下来约 2.64 个点。问题就在这个小数上打印机只能打整数个点2.64 会被取整成 2 或 3一旦取整宽条和窄条的比例就歪了扫码枪的容错窗口被吃掉近距离能扫、远一点就失败。参数常见取值说明X 尺寸EAN-130.264 / 0.33 mm越小越省纸但对打印机要求越高X 尺寸Code 390.25 0.5 mm工业标签常用 0.33静区左右各 10X少于 10X 时扫描失败率明显上升条高≥ 15% 码长或 ≥ 6.35 mm太矮时手持枪倾斜角度稍大就读不到实操上的建议是先把 X 尺寸调到一个能让模块宽度落在整数附近的档位。还是 203 DPIX 取 0.25 毫米时模块宽度约 2.0 个点比例干净X 取 0.33 毫米时是 2.64不干净。宁可稍微放大 X 让比例对齐也别硬凑一个“看起来刚好”的尺寸。LineWeight这个属性就是用来调这个比例的但它是个档位不是绝对宽度所以调完之后一定要打样、量、扫三步都过再批量。血泪经验是不要相信屏幕上的样子屏幕缩放和打印缩放是两套独立的东西。4.3 批量打印与图片导出批量打印的骨架就是一个循环但里面有两个细节决定成败DoEvents和打印区域。Sub BatchPrintBarcode() Dim ws As Worksheet, ole As OLEObject Dim i As Long, lastRow As Long Set ws ThisWorkbook.Worksheets(标签) Set ole ws.OLEObjects(bcMain) lastRow ws.Cells(ws.Rows.Count, A).End(xlUp).Row For i 2 To lastRow ole.Object.Value CStr(ws.Cells(i, A).Value) DoEvents 让控件完成重绘否则会打重复图 ws.Range(A1:H20).PrintOut Copies:1, Preview:False DoEvents Next i End SubDoEvents在这里不是可有可无的礼貌性写法。ActiveX 控件的重绘是异步的赋值之后图形不一定立刻更新紧接着调PrintOut有可能打到上一张的图。加一次DoEvents把控制权交还系统让重绘队列跑完能消掉绝大部分“批量打印重复”的问题。如果量特别大几千张以上还可以在循环里加一个Application.Wait短延时兜底。PrintOut之前用Range限定了打印区域这一步是为了避免把整个工作表打出去。参数Preview:False关掉预览否则每一张都会弹窗批量就废了。有时候下游不要纸要图片。那就走图表中转把控件复制成图片粘到一个临时图表对象里再导出成 PNG。Sub BarcodeToPng(ByVal oleName As String, ByVal outPath As String) Dim ole As OLEObject, cho As ChartObject Set ole Sheet1.OLEObjects(oleName) ole.Copy 借一个临时图表当画布尺寸跟控件一致避免拉伸变形 Set cho Sheet1.ChartObjects.Add(0, 0, ole.Width, ole.Height) cho.Chart.Paste cho.Chart.Export outPath, PNG cho.Delete End Sub关键点在于临时图表的宽高必须和控件一致。如果随手中转成一个默认尺寸的图表粘贴时会被拉伸条宽比例就变了导出的图看着没问题扫不出来。导出格式选 PNG 而不是 JPG是因为 JPG 的有损压缩会在条码边缘产生毛刺细条容易被吃掉。5. 避坑与排查五类翻车现场的现象、原因与处理下面五条都是我在迁移和部署里反复见到的按“现象 → 原因 → 解决”写方便对着现场直接查。5.1 拖控件时提示不能加载对象现象在设计视图里插入控件弹“不能加载对象”或者控件图标变成一个白方块加文字。原因九成是位数不匹配或根本没注册。32 位控件被 64 位宿主加载注册表里查得到但加载阶段直接失败另一种是注册到了错误的注册表分支宿主找不到。解决先确认宿主位数再确认注册用的是哪个regsvr32。32 位宿主配 32 位注册器SysWOW64 下那个然后用管理员权限跑一次不带/s的注册看弹窗提示是否成功。如果提示成功但依旧加载不了去注册表HKEY_CLASSES_ROOT下搜 ProgID确认它落在 32 位分支里。5.2 屏幕上看正常打印出来扫不出现象打印预览里条码清晰纸上打出来扫码枪读不到或者要凑很近才能读。原因控件外框尺寸被打印缩放放大或缩小了导致实际模块宽度不再是整数个打印点宽窄条比例失真。另一种是静区被裁掉——条码控件紧贴着单元格边框或者被相邻内容压住。解决把控件尺寸和打印缩放固定下来不要用“调整为 1 页宽”这类自适应选项。量一下纸上条码的实际宽度反算模块宽度是不是接近整数。左右各留出 10 倍 X 尺寸的空白用合并单元格或者调列宽都行别让别的元素压进静区。5.3 EAN-13 扫码枪报校验错误现象扫码枪能读出数字但提示校验失败或者读出来的末位和预期不符。原因喂给控件的 13 位里最后一位不是按前 12 位算出来的。控件不做校验你给什么它画什么。解决入库前统一过一次校验位计算把结果和第 13 位比对不一致就拦截不要让它进打印队列。批量导入历史数据时尤其要做这一步老系统里手工录入的错误会一直传下来。5.4 换一台机器就失效现象开发机上一切正常部署到现场机器后控件加载失败或者打印尺寸不对。原因新机器没注册控件或者注册了但 DPI 不同同样的LineWeight档位打出来的物理宽度不一样也可能是打印机驱动换了细条还原能力下降。解决部署脚本里固化注册步骤别靠手工。DPI 差异要靠现场打样重新标定LineWeight把标定结果写进配置而不是写死在代码里。打印机换了必须重新试打这条没有捷径。5.5 批量打印时后几张图没刷新现象连续打印多张前几张对后面几张条码重复或者值和图对不上。原因ActiveX 控件重绘是异步的赋值后立刻打印会拿到旧图报表里则是控件实例被复用没触发重新绑定。解决循环里加DoEvents必要时加短延时Access 报表在Detail_Format里强制重新赋值。批量的稳定性比速度重要宁可慢一点。6. 进阶封法把控件包成可复用条码服务以及验收的几个硬指标散落在各个模板里的控件调用早晚会变成维护噩梦。我一般会做一层薄封装一个模块对外只暴露MakeBarcode(值, 码制, 输出路径)一个入口内部负责校验位、清起止符、尺寸标定、导出图片。模板里不再直接碰.Object只调这个函数。这样做的好处很实在校验位逻辑只有一份改一次全站生效尺寸参数集中在一个配置表里现场标定只改配置不改代码将来真要换成别的条码库替换点也只有一个函数体。验收环节我固定看四个硬指标缺一个都不算过指标怎么验合格线首读率同一张标签连续扫 20 次20 次全中不允许“扫两次才中”距离容差从 5cm 拉到 25cm 逐级试常用工作距离内稳定角度容差倾斜 ±30° 扫不出现明显掉读打印一致性首张与末张对比条宽比例肉眼无差异首读率这条最容易被跳过。很多方案“能扫”就算过但现场工人一天扫几百次每次要调整角度找位置效率损失比返工还大。20 次全中这个标准看着苛刻其实只要尺寸标定对了很容易达到。还有一个事值得单独说把条码值和码制一起写进日志。排查现场问题时最怕的是“这张标签扫不出”但没人知道当时喂进去的是什么值、用的哪个码制。日志里带上这两项加上打印时间回溯成本能从半天降到几分钟。从那以后我每次部署这套控件都强制走一遍“注册 → 试打样张 → 量尺寸 → 20 次首读率”的流程一步不省。省下来的那十分钟往往要用一个下午的现场返工来还。希望帮到你。本文还有配套的精品资源点击获取