窗口打印时的选定行问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口打印时的选定行问题

共有21988人关注过本帖树形打印复制链接主题：窗口打印时的选定行问题

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/6/5 12:03:00 [显示全部帖子]

按照don老师的：“选定行→打印→选定行→打印.....：一样可以一次列印多行。”步骤，我也还没有试，
我想：是否用select来选定行，这样焦点会在该行上，用表事件currentchanged或positionchanged来返回改行的数据到窗口控件中；再用狐爸的：
Dim doc As PrintDoc
Forms("支piao").Open()
doc = Forms("支piao").GernatePrintDoc()
doc.Preview()
一种思路，有空我也试一试。。。。。

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/6/5 12:17:00 [显示全部帖子]

我用下面代码可以预览显示三次：（当然每次显示后都要手动关闭预览后自动显示下一行的预览）
Dim doc As PrintDoc
CurrentTable.select(0, 0,0, CurrentTable.cols.Count - 1)
Forms("支piao").Open()
doc = Forms("支piao").GernatePrintDoc()
doc.Preview()

CurrentTable.select(1, 0,1, CurrentTable.cols.Count - 1)
doc = Forms("支piao").GernatePrintDoc()
doc.Preview()

CurrentTable.select(2, 0,2, CurrentTable.cols.Count - 1)
doc = Forms("支piao").GernatePrintDoc()
doc.Preview()

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/6/5 12:20:00 [显示全部帖子]

以下是引用yangming在2009-6-5 10:36:00的发言：

.................

forms("支piao").Show()
CurrentTable.Position = 0
With Tables("支piao")
       For i AS integer = 0 To .Rows.Count-1
         Dim doc As PrintDoc
doc = Forms("支piao").GernatePrintDoc()
doc.Preview()
   CurrentTable.Position = CurrentTable.Position + 1
    Next
End With
........................................................

用表事件currentchanged或positionchanged来返回该行的数据到窗口控件中后
估计1楼的代码，将CurrentTable.Position = 0 放到 For i AS integer = 0 To .Rows.Count-1 下一行改为：
CurrentTable.Position = i 可能可以～！

[此贴子已经被作者于2009-6-5 12:24:10编辑过]