关于条码打印机
我想写一个打印条码的程序，但不知打印条码是否和一般打印文档是否相同，用vb的打印机对象可否实现，如何实现？
问题点数：30、回复次数：11Top
1 楼fzllmy（）回复于 2002-01-16 18:46:24 得分 0
怎么没有人回答我的问题？
Top
2 楼chenxuliang（快樂的青鳥）回复于 2002-01-16 18:54:42 得分 0
okTop
3 楼fzllmy（）回复于 2002-01-16 19:00:05 得分 0
ok是什么意思，你能帮帮我吗？
Top
4 楼cqq_chen（我是谁）回复于 2002-01-16 19:01:42 得分 0
相同，不有很大的区别，关键技术在条码的编写上。Top
5 楼fzllmy（）回复于 2002-01-16 19:04:08 得分 0
能不能点拨小弟一二
Top
6 楼Bardo（巴顿(永远只有一个)）回复于 2002-01-16 19:05:38 得分 0
如果用专用打印机，则会有编程接口的。如果用通用打印机，则你要用程序画出条码！Top
7 楼fzllmy（）回复于 2002-01-16 19:18:02 得分 0
我用的是专用打印机，只有驱动程序没有别的东西，我应如何使用？
Top
8 楼pvistely（晒屁屁）回复于 2002-01-16 19:23:39 得分 0
我朋友有一个自己做的条码打印程序，如果你想要就给我来信，我会尽力叫他把源码给你pvistely@163.com这份源码是他独自研究并找到规律后自创的，绝对原创，Top
9 楼atyzy（笑闹江湖）回复于 2002-01-16 20:16:22 得分 0
网上有条码控件,你可以自己搜索一下,我以前当了一个,不过没试过.
我分析,条码的编写有一定的规律,而且各种条码如何标注都有统一的规定,如果你没有这些规定,你是不可能自己画出来的.Top
10 楼pvistely（晒屁屁）回复于 2002-01-16 20:25:05 得分 0
是有规律，你用1,0来代表粗与细，你看一下就知道了，最好在看前用一张纸先把0-9的条码打出来，黑的与白的一样看代，然后用VB随便打一个数字看看，让那个识码器读读一定行，我那个朋友就是这么出来的，，，，，哈哈哈：）并且有些条码的前几个数与后几个数一定要一至不然识码器读不认识，你有CORLDRAW（可能拼错了）吗，那里就有条码的字库，我那朋友还把自己做的条码做成了一个很小的字库，这样你就可以像用“宋体”一样就不用什么函数了，哈哈哈~~~~~~~Top
11 楼ByTheWay（摓崯堦熰）回复于 2002-01-17 00:59:03 得分 30
回复人： ByTheWay(到此一游) (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(到此一游) (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 格式的条形码。具体的打印控制指令请参考打印机手册。
用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。
Top
