主题：求助：关于打印问题，为何我的设计总是打印第一数据？（已解决）

打印代码

Tables("产品").Position = Tables("产品").FindRow("_Identify = " & Tables("窗口1_Table2").Current("_Identify"))

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
ShowAppWindow("出库单",2)
Ws.PrintPreview
App.Quit