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

还是不太明白,比如

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

这样子的代码，我如何指定打印份数，然后直接打印，标红的是打开工作簿，然后到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