主题：用Excel模版打印标签,如何直接用按钮控制打印？

打印三份：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
For i As integer = 1 to 3
    Dim Proc As New Process '打开工作簿
    Proc.File = fl

    Proc.Verb = "Print"
    Proc.Start()

Next