关于条码打印机

Question

我朋友有一个自己做的条码打印程序，如果你想要就给我来信，我会尽力叫他把源码给你[email protected]这份源码是他独自研究并找到规律后自创的，绝对原创，

Answer 1

是有规律，你用1,0来代表粗与细，你看一下就知道了，最好在看前用一张纸先把0-9的条码打出来，黑的与白的一样看代，然后用VB随便打一个数字看看，让那个识码器读读一定行，我那个朋友就是这么出来的，，，，，哈哈哈：）并且有些条码的前几个数与后几个数一定要一至不然识码器读不认识，你有CORLDRAW（可能拼错了）吗，那里就有条码的字库，我那朋友还把自己做的条码做成了一个很小的字库，这样你就可以像用“宋体”一样就不用什么函数了，哈哈哈~~~~~~~

Answer 2

回复人：　ByTheWay(&#157;到此一游)　(2001-11-16 10:09:32)  得38分 这是我找到的一篇文章，比我自己编的详细很多，但是我没有试过，贴上来参考一下，我自己编的只能实现数字39码（因为其他的没有需要，偷懒没做），如果你要的话，留下EMAIL　　条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的１和０，只要我们了解了条形码的编码规则，完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。 　　CODE39码的编码规则是： １、 每五条线表示一个字符； ２、 粗线表示１，细线表示０； ３、 线条间的间隙宽的表示１，窄的表示０； ４、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码； ５、 条形码的首尾各一个＊标识开始和结束 　　在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如： 　　上图中的字符＊就可以解读为 001101000，字符３解读为 110000100 　　下面就是我们给出的子过程： 注释： 将字符串 strBarCode 对应的条形码输出到缺省打印机 Private Sub PrintBarCode( _ 　　ByVal strBarCode As String, _ 　　Optional ByVal intXPos As Integer = 0, _ 　　Optional ByVal intYPos As Integer = 0, _ 　　Optional ByVal intPrintHeight As Integer = 10, _ 　　Optional ByVal bolPrintText As Boolean = True _ ) 注释： 参数说明: 注释： strBarCode　　　　- 要打印的条形码字符串 注释： intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0)，坐标刻度为:毫米) 注释： intHeight　　　　 - 打印高度(缺省为一厘米,坐标刻度为:毫米) 注释： bolPrintText　　 - 是否打印人工识别字符(缺省为true) 注释： "0"-"9","A-Z","-","%","$"和"*" 的条码编码格式,总共 40 个字符 Static strBarTable(39) As String 注释： 初始化条码编码格式表 　　strBarTable(0) = "001100100"　　 注释： 0 　　strBarTable(1) = "100010100"　　 注释： 1 　　strBarTable(2) = "010010100"　　 注释： 2 　　strBarTable(3) = "110000100"　　 注释： 3 　　strBarTable(4) = "001010100"　　 注释： 4 　　strBarTable(5) = "101000100"　　 注释： 5 　　strBarTable(6) = "011000100"　　 注释： 6 　　strBarTable(7) = "000110100"　　 注释： 7 　　strBarTable(8) = "100100100"　　 注释： 8 　　strBarTable(9) = "010100100"　　 注释： 9 　　strBarTable(10) = "100010010"　　注释： A 　　strBarTable(11) = "010010010"　　注释： B 　　strBarTable(12) = "110000010"　　注释： C 　　strBarTable(13) = "001010010"　　注释： D 　　strBarTable(14) = "101000010"　　注释： E 　　strBarTable(15) = "011000010"　　注释： F 　　strBarTable(16) = "000110010"　　注释： G 　　strBarTable(17) = "100100010"　　注释： H 　　strBarTable(18) = "010100010"　　注释： I 　　strBarTable(19) = "001100010"　　注释： J 　　strBarTable(20) = "100010001"　　注释： K 　　strBarTable(21) = "010010001"　　注释： L 　　strBarTable(22) = "110000001"　　注释： M 　　strBarTable(23) = "001010001"　　注释： N 　　strBarTable(24) = "101000001"　　注释： O 　　strBarTable(25) = "011000001"　　注释： P 　　strBarTable(26) = "000110001"　　注释： Q 　　strBarTable(27) = "100100001"　　注释： R 　　strBarTable(28) = "010100001"　　注释： S 　　strBarTable(29) = "001100001"　　注释： T 　　strBarTable(30) = "100011000"　　注释： U 　　strBarTable(31) = "010011000"　　注释： V 　　strBarTable(32) = "110001000"　　注释： W 　　strBarTable(33) = "001011000"　　注释： X 　　strBarTable(34) = "101001000"　　注释： Y 　　strBarTable(35) = "011001000"　　注释： Z 　　strBarTable(36) = "000111000"　　注释： - 　　strBarTable(37) = "100101000"　　注释： % 　　strBarTable(38) = "010101000"　　注释： $ 　　strBarTable(39) = "001101000"　　注释： * 　　If strBarCode = "" Then Exit Sub 注释： 不打印空串 　　注释： 保存打印机 ScaleMode 　　Dim intOldScaleMode As ScaleModeConstants 　　intOldScaleMode = Printer.ScaleMode 　　注释： 保存打印机 DrawWidth 　　Dim intOldDrawWidth As Integer 　　intOldDrawWidth = Printer.DrawWidth 　　注释： 保存打印机 Font 　　Dim fntOldFont As StdFont 　　Set fntOldFont = Printer.Font 　　 　　Printer.ScaleMode = vbTwips 注释： 设置打印用的坐标刻度为缇(twip=1) 　　Printer.DrawWidth = 1　　 注释： 线宽为 1 　　Printer.FontName = "宋体" 注释： 打印在条码下方字符的字体和大小 　　Printer.FontSize = 10 　　 　　Dim strBC As String　　　　 注释： 要打印的条码字符串 　　strBC = Ucase(strBarCode) 　　注释： 将以毫米表示的 X 坐标转换为以缇表示 　　Dim x As Integer 　　x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips) 　　注释： 将以毫米表示的 Y 坐标转换为以缇表示 　　Dim y As Integer 　　y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips) 　　注释： 将以毫米表示的高度转换为以缇表示 　　Dim intHeight As Integer 　　intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips) 　　 　　注释： 是否在条形码下方打印人工识别字符 　　If bolPrintText = True Then 　　　　注释： 条码打印高度要减去下面的字符显示高度 　　　　intHeight = intHeight - Printer.TextHeight(strBC) 　　End If 　　 　　Const intWidthCU As Integer = 30 注释： 粗线和宽间隙宽度 　　Const intWidthXI As Integer = 10 注释： 细线和窄间隙宽度 　　Dim intIndex As Integer　　　　　　注释： 当前处理的字符串索引 　　Dim i As Integer, j As Integer, k As Integer　　注释： 循环控制变量 　　注释： 添加起始字符 　　If Left(strBC, 1) <> "*" Then 　　　　strBC = "*" & strBC 　　End If 　　注释： 添加结束字符 　　If Right(strBC, 1) <> "*" Then 　　　　strBC = strBC & "*" 　　End If 　　 　　注释： 循环处理每个要显示的条码字符 　　For i = 1 To Len(strBC) 　　　　注释： 确定当前字符在 strBarTable 中的索引 　　　　Select Case Mid(strBC, i, 1) 　　　　Case "*" 　　　　　　intIndex = 39 　　　　Case "$" 　　　　　　intIndex = 38 　　　　Case "%" 　　　　　　intIndex = 37 　　　　Case "-" 　　　　　　intIndex = 36 　　　　Case "0" To "9" 　　　　　　intIndex = CInt(Mid(strBC, i, 1)) 　　　　Case "A" To "Z" 　　　　　　intIndex = Asc(Mid(strBC, i, 1)) - Asc("A") + 10 　　　　Case Else 　　　　　　MsgBox "要打印的条形码字符串中包含无效字符！当前版本只支持字符 注释：0注释：-注释：9注释：,注释：A注释：-注释：Z注释：,注释：-注释：,注释：%注释：,注释：$注释：和注释：*注释：" 　　　　End Select 　　　　 　　　　注释： 是否在条形码下方打印人工识别字符 　　　　If bolPrintText = True Then 　　　　　　Printer.CurrentX = x 　　　　　　Printer.CurrentY = y + intHeight 　　　　　　Printer.Print Mid(strBC, i, 1) 　　　　End If 　　　　For j = 1 To 5 　　　　　　注释： 画细线 　　　　　　If Mid(strBarTable(intIndex), j, 1) = "0" Then 　　　　　　　　For k = 0 To intWidthXI - 1 　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight) 　　　　　　　　Next k 　　　　　　　　x = x + intWidthXI 　　　　　　注释： 画宽线 　　　　　　Else 　　　　　　　　For k = 0 To intWidthCU - 1 　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight) 　　　　　　　　Next k 　　　　　　　　x = x + intWidthCU 　　　　　　End If 　　　　　　注释： 每个字符条码之间为窄间隙 　　　　　　If j = 5 Then 　　　　　　　　x = x + intWidthXI * 3 　　　　　　　　Exit For 　　　　　　End If 　　　　　　 　　　　　　注释： 窄间隙 　　　　　　If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then 　　　　　　　　x = x + intWidthXI * 3 　　　　　　注释： 宽间隙 　　　　　　Else 　　　　　　　　x = x + intWidthCU * 2 　　　　　　End If 　　　　Next j 　　Next i 　　注释： 恢复打印机 ScaleMode 　　Printer.ScaleMode = intOldScaleMode 　　注释： 恢复打印机 DrawWidth 　　Printer.DrawWidth = intOldDrawWidth 　　注释： 恢复打印机 Font 　　Set Printer.Font = fntOldFont End Sub 　　最理想的情况是将它做成一个控件，在控件中提供一个打印方法，该方法实现与上 　　那个过程大致相同，只是不能在控件中直接使用VB的Printer对象，否则VB会将你在控件中的打印输出处理为一个单独的页面，而是应该将Printer.hDc传给它，通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上，比如我们可以这样定义这个控件的打印方法： 注释： PrintIt 方法将对应的条形码输出到缺省打印机 Public Sub PrintIt(ByVal PrintDC As Long, _ 　　 Optional ByVal intXPos As Integer = 0, _ 　　Optional ByVal intYPos As Integer = 0, _ 　　 Optional ByVal intPrintHeight As Integer = 10) 　　既然不能使用Printer对象，那么画线和输出文字也不能使用Printer对象的Line和Print方法，在我们的程序中至少要申明以下三个Windows API函数： ‘ 移动画笔的位置 Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long ‘ 从画笔的当前位置到（x,y）画一条线 Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long ‘ 在（x,y）处输出一个字符串 Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long ‘ MoveToEx() 函数需要的参数 Private Type POINTAPI 　　xp As Long 　　yp As Long End Type Dim papi As POINTAPI 　　画线操作为(原来的Printer.Line函数)： MoveToEx PrintDC, x + k, y, papi LineTo PrintDC, x + k, y + intHeight + 1 　　打印字符为(原来的Printer.Print函数)： TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1   
回复人：　facky(facky)　(2001-11-17 10:16:15)  得0分 
  我用的是专用的条形码打印机，有时候不知道如何控制他在一张条形码纸上打印。很麻烦！  
回复人：　ByTheWay(&#157;到此一游)　(2001-11-18 17:05:11)  得0分 那更容易了！　　有许多打印机能够直接打印条形码，但在 VB 中，我们在ＤＯＳ时代熟悉的LPRINT语句已经不能再使用了，打印操作被Windows的Spool系统完全接管，输出是以“页”为单位，所有的打印输出都被Windows转换为图形发送给打印驱动程序。而要使打印机打印条形码就必须将对应的ESC序列直接发送给它，因此我们就要想办法避开Windows的Spool系统，也就是说再程序中不能使用Printer对象和Printers集合处理打印输出，在VB中要将ESC指令直接发送给打印机至少有三种方法，前两种方法是调用Windows API 函数：Escape()和SpoolFile()，第三种是最容易的方法：打开打印机端口进行二进制存取，我们主要考虑这种方法。 　　即使在Windows时代，”LPT1:”和”PRN”仍然是可用的，下面我们先作一个试验：打开一个DOS窗口，在提示符下输入COPY CON LPT1:回车，然后随便输入一些字符，最后按F6键，打印机就开始工作了，它将打印出你输入的那些字符！下面的代码演示了直接将指令和字符发送给打印机： Private Sub Command1_Click() 　　Dim strOut As String 　　StrOut = “这是直接发送到打印机端口的字符串” 　　‘ 打开打印机端口，其中的”LPT1:”可能需要根据你的打印机设置而改变 　　Open “LPT1:” For Binary Access Write As #1 　　‘ 发送给打印机，注意语句的最后一个参数必须是变量 　　　　Put #1, ,strOut 　　　　‘ 关闭打印机端口 　　　　Close #1 End Sub 　　各种打印机打印条形码的指令可能不同，比如将上面的变量 strOut赋值为： 　　strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345” 　　将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。 　　用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。