VB 调用 Codesoft 模板打印标签
VB 调用 Codesoft 模板打印标签是利用 VB 编程语言调用 Codesoft 模板打印标签的功能。下面是相关的知识点：
一、TkxOleCtrlEx.ocx 控件
TkxOleCtrlEx.ocx 是一个 ActiveX 控件，用于实现打印功能。在 VB 中，需要安装 Codesoft 软件，然后才能添加 TkxOleCtrlEx.ocx 部件到 VB 项目中。
二、选择打印机
在 VB 中，需要使用 TkxOleCtrlEx.ocx 控件来选择打印机。可以使用以下代码来实现：
Private Sub Command2_Click()
Me.TkxOleCtrlEx1.ShowDialog lppxPrinterSetupDialog, 0
End Sub
这段代码将显示打印机设置对话框，用户可以选择要使用的打印机。
三、传递变量及打印
在 VB 中，需要使用 TkxOleCtrlEx.ocx 控件来传递变量和打印标签。可以使用以下代码来实现：
Private Sub Command3_Click()
Dim Printers As Variant
Dim Name As Variant
Dim Msg As String
Printers = Me.TkxOleCtrlEx1.Printers(lppxAllPrinters)
'选择打印机
For nindex = LBound(Printers, 1) To UBound(Printers, 1)
Msg = Msg + Printers(nindex) + vbCrLf
Next
MsgBox Msg
Dim Variables As Variant
Variables = Me.TkxOleCtrlEx1.Variables(lppxAllDataSource)
'获取 CS9 模板里设置的变量
For Index = LBound(Variables, 1) To UBound(Variables, 1)
Msg = Msg + Variables(nindex, 0) + "=" + Variables(nindex, 1) + vbCrLf
'得到模板里设置的变量名和变量值
Next
MsgBox Msg
Variables(0, 1) = "变量 1"
Me.TkxOleCtrlEx1.DocumentName = "c:\tmp.lab"
'获取模板文件路径
Me.TkxOleCtrlEx1.UpdateVariables Variables
'为变量赋值
Me.TkxOleCtrlEx1.PrintDocument (1)
'打印 label
End Sub
这段代码将获取打印机列表，选择打印机，然后传递变量值，并打印标签。
四、Codesoft 模板
Codesoft 模板是一个标签打印模板，用于设计和打印标签。VB 调用 Codesoft 模板可以实现打印标签的功能。在 VB 中，需要使用 TkxOleCtrlEx.ocx 控件来调用 Codesoft 模板。
五、变量传递
在 VB 中，需要使用 TkxOleCtrlEx.ocx 控件来传递变量值。可以使用以下代码来实现：
Variables(0, 1) = "变量 1"
Me.TkxOleCtrlEx1.UpdateVariables Variables
'为变量赋值
这段代码将传递变量值到 Codesoft 模板中，然后使用这些变量值打印标签。
六、模板文件路径
在 VB 中，需要使用 TkxOleCtrlEx.ocx 控件来获取模板文件路径。可以使用以下代码来实现：
Me.TkxOleCtrlEx1.DocumentName = "c:\tmp.lab"
'获取模板文件路径
这段代码将获取模板文件路径，然后使用这个路径来打印标签。
VB 调用 Codesoft 模板打印标签需要使用 TkxOleCtrlEx.ocx 控件来选择打印机、传递变量值和打印标签。同时，需要使用 Codesoft 模板来设计和打印标签。
