对条形码打印机的编程,请给个例子,谢谢.

Question

谁做过对条形码打印机的编程,请给个例子,谢谢.

Answer 1

以前写的程序，打印机不一样，而不一样：
Public Declare Sub openport Lib "tsclib.dll" ()
Public Declare Sub closeport Lib "tsclib.dll" ()
Public Declare Sub sendcommand Lib "tsclib.dll" ( _
                                    ByVal command As String)
Public Declare Sub setup Lib "tsclib.dll" ( _
                                    ByVal LabelWidth As String, _
                                    ByVal LabelHeight As String, _
                                    ByVal Speed As String, _
                                    ByVal Density As String, _
                                    ByVal Sensor As String, _
                                    ByVal Vertical As String, _
                                    ByVal Offset As String)
Public Declare Sub downloadpcx Lib "tsclib.dll" ( _
                                    ByVal Filename As String, _
                                    ByVal ImageName As String)
Public Declare Sub barcode Lib "tsclib.dll" ( _
                                    ByVal X As String, _
                                    ByVal Y As String, _
                                    ByVal CodeType As String, _
                                    ByVal Height As String, _
                                    ByVal Readable As String, _
                                    ByVal rotation As String, _
                                    ByVal Narrow As String, _
                                    ByVal Wide As String, _
                                    ByVal Code As String)
Public Declare Sub printerfont Lib "tsclib.dll" ( _
                                    ByVal X As String, _
                                    ByVal Y As String, _
                                    ByVal FontName As String, _
                                    ByVal rotation As String, _
                                    ByVal Xmul As String, _
                                    ByVal Ymul As String, _
                                    ByVal Content As String)
Public Declare Sub clearbuffer Lib "tsclib.dll" ()
Public Declare Sub printlabel Lib "tsclib.dll" ( _
                                    ByVal NumberOfSet As String, _
                                    ByVal NumberOfCopy As String)
Public Declare Sub formfeed Lib "tsclib.dll" ()
Public Declare Sub nobackfeed Lib "tsclib.dll" ()
Public Declare Sub windowsfont Lib "tsclib.dll" ( _
                                    ByVal X As Integer, _
                                    ByVal Y As Integer, _
                                    ByVal fontheight As Integer, _
                                    ByVal rotation As Integer, _
                                    ByVal fontstyle As Integer, _
                                    ByVal fontunderline As Integer, _
                                    ByVal FaceName As String, _
                                    ByVal TextContent As String)
     Case "SG"
        
        LeftWidth = 35 - LeftWidth
        TopHeight = 60 - TopHeight        '-----------------第一张--------------------------------------------------------------------------------------------------
        
        Call sendcommand("PUTPCX 78,27,""Amoi.PCX""")
        Call windowsfont(263, 23, 50, 0, 2, 0, "Arial", "A8")
        'Call windowsfont(295, 28, 40, 0, 2, 0, "Arial", "SG")
        Call windowsfont(93, 64, 23, 0, 0, 0, "Arial", "IMEI: " & imei)
        Call barcode("69", "86", "128", "23", "0", "0", "2", "2", imei)
        Call windowsfont(114, 109, 20, 0, 0, 0, "Arial", "ID: " & strID)
        Call barcode("63", "128", "128", "22", "0", "0", "2", "2", strID)
        Call windowsfont(114, 150, 30, 0, 2, 0, "Arial", "SG")
        Call windowsfont(187, 150, 25, 0, 0, 0, "Arial", "Made in China")
        'If strArea <> "" Then Call windowsfont(127, 149, 25, 0, 2, 0, "Arial", "指定 " & strArea & " 销售")