您的位置－>>速创科技－>>在线支持

编号：2449	留言者名称：郑立楷　标题：这是我的程序调用打印的函数
Function PrintCode(ByVal Model As String, ByVal Code As String, ByVal CopyCount As Integer, ByVal Conv As Integer) As Boolean     Dim TF As Long     TF = B_CreatePrn(1, "")     TF = TF + B_Set_Darkness(12)     Dim Addnum As Integer     Dim BarCode As String     BarCode = ""     If Conv = 1 Then         BarCode = Code & "<-1>"     Else         BarCode = Code & "<+1>"     End If     Addnum = 0     TF = TF + B_Prn_Text(60, Addnum + 30, 0, 3, 1, 1, 78, Model)     TF = TF + B_Prn_Barcode(60, Addnum + 50, 0, "2", 3, 6, 140, 78, BarCode)     TF = TF + B_Prn_Text(170, Addnum + 195, 0, 2, 1, 1, 78, BarCode)     Addnum = 240     TF = TF + B_Prn_Text(60, Addnum + 30, 0, 3, 1, 1, 78, Model)     TF = TF + B_Prn_Barcode(60, Addnum + 50, 0, "2", 3, 6, 140, 78, BarCode)     TF = TF + B_Prn_Text(170, Addnum + 195, 0, 2, 1, 1, 78, BarCode)     Addnum = 480     TF = TF + B_Prn_Text(60, Addnum + 30, 0, 3, 1, 1, 78, Model)     TF = TF + B_Prn_Barcode(60, Addnum + 50, 0, "2", 3, 6, 140, 78, BarCode)     TF = TF + B_Prn_Text(170, Addnum + 195, 0, 2, 1, 1, 78, BarCode)               If TF = 0 Then TF = B_Print_MCopy(CopyCount, 1)     Call B_ClosePrn     If TF = 0 Then PrintCode = True End Function
地区：其它　　　 留言时间： 2003-9-27　11:19:07

专家解答： 您那个Model是啥值拉？

条码小知识：

条码是由不同宽度的条和空组成的标记，用以代表数字，字母或标点符号。条码是用来确认某个物体或规定它的移动。条和空的安排方式称做符号法，符号法有多种。国际物品编码协会(EAN)的编码体系广泛地应用于零售业。三九码在工业，医药和政府部门中很流行，它是一种带有自我检查功能的字母与数字的符号法，它可以提供不同的长度并有高度的资料保密效能。一二八码是可以代表所有的ASCII并有高密度和高度的资料保密效能。它是被称做应用确定(AI)的国际语言的基础。二维码或所谓“重叠”的符号法(PDF417，Codablock，16K，Code49等等)都在一个固定的格式中用条码行上下罗列的办法提供高密度的资料编码。另外，还有包括 VeriCode, DataMatrix, Codel和MaxiCode的矩阵码(Matrix)，也提供高密度的资料储存功能。 在应用中，符号是被一种红外线或可见光源照射；黑色的条吸收光，空则将光反射回扫描器中。扫描器将光波转译成模仿条码中的条与空的电子脉冲。一个解码器用数学程序将电子脉冲译成一种二位制码并将译码后的资料信息传到个人电脑，控制器或电脑主机中。扫描器可以内含或外接解码器。扫描器使用可见光发光二级管，红外线发光二极管(LED)，氦氖激光器或固态激光二级管(可见光或红外线)来识读条码符号。一些扫描器要求接触条码标签，另一些可以从数英尺外读码。一些是固定式的。一些是手持式的。大多数的扫描器用移动的或固定的光线来照射条码符号。CCD扫描器可以照相似地一次“看到”整个符号。二维CCD阅读器用来阅读矩阵码符号。每种扫描器都有它的长处，但是若要从条码体系中获利最多，还是要使扫描器与它的应用相适应。