VB.Net调用BarTender打印标签

VB.NET控制bartender打印标签

一、	系统准备
1.	安装bartender10.1,注意选安装SDK选项。
2.	制作一个标签模版

 
依次添加单行文本：部门、责任人、用途、密级、MAC地址、硬盘序列号、工作提示。保存模版为：互联网.btw 
注意：类型为“嵌入的数据”，经测试即使不用，也不能有数据源，否则不打印。
二、	新建VB.NET项目
 
1.	添加引用—项目—COM—Bartender10.1
2.	编写代码
在类代码前导入，作用是控制系统打印机
Imports System.Drawing.Printing  
（1）建立对象
Dim btapp As New BarTender.Application     '建BTAPP对象
 Dim btFormat As BarTender.Format   ' 创建BarTender打印对象

（2）窗体LOAD代码
说明：获取系统打印机清单并添加到打印机列表
Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim printcount As Integer = Printing.PrinterSettings.InstalledPrinters.Count  
        For i = 0 To printcount Step 1
            ComboBoxPrint.Items.Add(Printing.PrinterSettings.InstalledPrinters.Item(i)) 
        Next
  End Sub
（3）打印标签代码
Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
        btFormat = btapp.Formats.Open(Application.StartupPath + "\互联网.btw", False, "")  ‘打开标签模版

‘文本框等的文本替代模版中标签的内容
        btFormat.SetNamedSubStringValue("部门", ComboBoxBM.Text)
        btFormat.SetNamedSubStringValue("责任人", TextBoxZRR.Text)
        btFormat.SetNamedSubStringValue("用途", TextBoxYT.Text)
        btFormat.SetNamedSubStringValue("密级", ComboBoxMJ.Text)
        btFormat.SetNamedSubStringValue("MAC地址", TextBoxMAC.Text)
        btFormat.SetNamedSubStringValue("硬盘序列号", TextBoxHDSN.Text)
        If ComboBoxMJ.Text = "非密" Then
            btFormat.SetNamedSubStringValue("工作提示", "本计算机为互联网计算机，不得接入其他非互联网网络，不得使用无线设备，不得起草、存储涉密及业务网内容，不得与涉密计算机交叉使用存储介质。")
        Else
            btFormat.SetNamedSubStringValue("工作提示", "本计算机为业务网计算机，不得接入其他非业务网网络，不得使用无线设备，不得起草存储涉密信息不得与涉密计算机交叉使用存储介质。")
        End If

        If ComboBoxPrint.SelectedItem <> "" Then  '选中了打印机
            btFormat.Printer = ComboBoxPrint.SelectedItem  '若选定打印机就使用它，否则使用默认打印机
        End If
        btFormat.PrintOut()  '打印输出
        btFormat.Close() ‘关闭任务
        btapp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)
    End Sub



在这里插入代码片