使用fnthex.dll库进行标签打印源码详解

Public Declare Function GETFONTHEX Lib "C:\Program Files\Common Files\fnthex32.dll" (ByVal chnstr$, ByVal fontname$, ByVal chnname$, ByVal orient%, ByVal height%, ByVal width%, ByVal bold%, ByVal italic%, ByVal hexbuf$) As Integer

Public Function LabelPrint(ByVal strDate As String, strBoxCode As String, strLong As String, strColour As String, _
                           strSj1 As String, strSj2 As String, strSj3 As String, strSj4 As String, _
                           strCode As String, Optional strSHQQty As String = "") '标签打印函数
    Dim MAX_BUFFER As Integer, ncount As Integer, ncount1 As Integer, ncount2 As Integer, ncount3 As Integer
    Dim temp As String
    Dim temp1 As String
    Dim temp2 As String
    Dim temp3 As String
    Dim cBuf As String * 21000
    
    Dim i As Integer
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim str4 As String
    Dim str5 As String
    Dim str6 As String
    Dim str7 As String
    Dim str8 As String
   
    Dim ln1 As String
    Dim ln2 As String
    Dim ln3 As String
    Dim ln4 As String
    
    '进行空位填补
    
    '长度最长为5个字节

    If Len(strLong) < 5 Then
       For i = 1 To 5 - Len(strLong)
           strLong = strLong & " "
       Next
    End If
    
    If Len(strSj1) < 5 Then
       For i = 1 To 5 - Len(strSj1)
           strSj1 = strSj1 & " "
       Next
    End If
    
    If Len(strSj2) < 5 Then
       For i = 1 To 5 - Len(strSj2)
           strSj2 = strSj2 & " "
       Next
    End If
    
    If Len(strSj3) < 5 Then
       For i = 1 To 5 - Len(strSj3)
           strSj3 = strSj3 & " "
       Next
    End If
    
    If Len(strSj4) < 5 Then
       For i = 1 To 5 - Len(strSj4)
           strSj4 = strSj4 & " "
       Next
    End If