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

我的窗口使用的模拟关联功能，在设计打印预览时，预览输出的结果总是第一条。打印预览功能是完全参照基本功能演示的示例来做的，基本功能的示例可以做到，预览输出时，总是当前记录。

 

以下是上传的示例，求老师帮忙！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.zip

打印代码

 

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

谢谢老师，每次遇到问题，都能得到各位老师的帮助，对于学习狐表的兴趣真是好，真心赞一个！