以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么根据选定行数，调用不同打印模板  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52595)
--  作者：jpg7
--  发布时间：2014/6/18 19:35:00
--  怎么根据选定行数，调用不同打印模板
打印单子时候，希望能通过click实现，根据选定行数设置打印模板，比如说选定一行就调用“打印模板①”，2行-5行，选用“打印模板②”，选定6行-10行选用“打印模板③”，10行以上，提示超限
--  作者：有点甜
--  发布时间：2014/6/18 19:42:00
--  

 如下

 

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

 
--  作者：jpg7
--  发布时间：2014/6/19 19:53:00
--  回复：（有点甜） 如下 Dim rcount As ...

谢谢老师