主题：怎么根据选定行数，调用不同打印模板

打印单子时候，希望能通过click实现，根据选定行数设置打印模板，比如说选定一行就调用“打印模板①”，2行-5行，选用“打印模板②”，选定6行-10行选用“打印模板③”，10行以上，提示超限

 如下

 

Dim rcount As Integer = Tables("表A").BottomPosition - Tables("表A").TopPosition
Dim path As String
If rcount = 1 Then
    path = "Attachments\出库单1.xls")
Else If rcount >= 2 AndAlso rcount <= 5 Then
    path = "Attachments\出库单2.xls")
Else If roucnt >= 6 AndAlso rcount <= 10 Then
    path = "Attachments\出库单3.xls")
Else
    msgbox("超限制")
End If

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

 

谢谢老师