主题：多行细节区报表打印问题

Excel报表的细节区可以包括多行，而且可以任意复杂。

例如我们要Excel报表打印员工资料卡，可以按照下图所示设计模板：

根据这个帮助做的多行细节区报表，

需求：一页纸打印表中一行的内容，一行要打印N份，打完再打第二行的N份

问题：报表总是显示光标选中那行的内容，我用2个

For Each r As Row In Tables("表").Rows

       For i As Integer = 1 To e.Form.Controls("份数").value

            Dim Book As New XLS.Book(ProjectPath & "Attachments\报表.xls")

            Dim fl As String = ProjectPath & "Reports\报表.xls"

            Book.Build()

            Book.Save(fl)

            Dim App As New MSExcel.Application

            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

               App.Visible = True

                Ws.PrintPreview            

            wb.save

            Wb.Close

            App.Quit

        Next

   Next

循环也不行，请老师帮忙