VB应用程序中打印条形码的两种方法(2)

原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:137 来源：未知

本文章共5564字，分4页，当前第2页，快速翻页：

　　下面就是我们给出的子过程：

注释：将字符串 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)

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 下一页>>

• 利用VB实现浮动按钮

• 在WindowsNT网络中广播消息

• VB 从零开始编外挂(八)

• API实现完美的图片出现效果

• ODBC API 的VB Sample