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