- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：关于打印问题，为何我的设计总是打印第一数据？（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69722)
-- 发布时间：2015/6/9 20:15:00
-- 求助：关于打印问题，为何我的设计总是打印第一数据？（已解决）
我的窗口使用的模拟关联功能，在设计打印预览时，预览输出的结果总是第一条。打印预览功能是完全参照基本功能演示的示例来做的，基本功能的示例可以做到，预览输出时，总是当前记录。
以下是上传的示例，求老师帮忙！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.zip |
[此贴子已经被作者于2015/6/9 20:36:22编辑过]
-- 发布时间：2015/6/9 20:27:00
--
打印代码
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
-- 发布时间：2015/6/9 20:36:00
--
谢谢老师，每次遇到问题，都能得到各位老师的帮助，对于学习狐表的兴趣真是好，真心赞一个！