VB6调用Codesoft条码软件打印标签

VB6调用Codesoft条码软件打印标签

做工控软件不免要打印标签，打印方式很多：打印图片方式，命令方式……

最简单的要数直接调用CODESOFT了。

CODESOFT可以编辑要打印的条码标签，将需要改变的文字、条码、二维码设置为变量，打印时将参数传入即可。

首先需要安装CODESOFT，并编辑好条码标签备用。

 

然后下载需要使用的库文件里面有dll文件和tlb文件，本文只介绍dll文件用法

 

新建工程，简单界面如下

Imports LabelManager2
<ComClass(ComCodeSoftPrint.ClassId, ComCodeSoftPrint.InterfaceId, ComCodeSoftPrint.EventsId)> _
Public Class ComCodeSoftPrint

#Region “COM GUID”
‘ 这些 GUID 提供此类的 COM 标识
‘ 及其 COM 接口。若更改它们，则现有的
‘ 客户端将不再能访问此类。
Public Const ClassId As String = “81498e68-3899-4b7b-ae9f-c9e301480d69”
Public Const InterfaceId As String = “724ab222-2448-4440-a9e0-d06b5aa14f17”
Public Const EventsId As String = “49c8e387-a0e9-4f25-acaf-cd2cd028b2dc”
#End Region

‘ 可创建的 COM 类必须具有一个不带参数的 Public Sub New()
‘ 否则， 将不会在
‘ COM 注册表中注册此类，且无法通过
‘ CreateObject 创建此类。
Public Sub New()
MyBase.New()
End Sub

Public lbl As LabelManager2.Application
Dim strFile As String
Dim doc As Document

Public Sub openLabFile(filePath As String)

lbl = New LabelManager2.Application()
lbl.Documents.Open(filePath, False)
doc = lbl.ActiveDocument
doc.Printer.SwitchTo(“ZDesigner ZT410-300dpi ZPL”, “USB001”, True)

End Sub

Public Sub closeLabFile()

Try
lbl.Documents.CloseAll(False)
lbl.Quit()
Catch

End Try

End Sub

Public Sub printLabel(var0 As String)

doc.Variables.FreeVariables.Item(“变量0”).Value = var0

doc.PrintLabel(1, 1, 1, 1, 1, “”)
doc.FormFeed()

End Sub

End Class

更多关于VB6调用CODESOFT的示例，请大家关注CODESOFT教程。