以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]批量打印选定的行的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92009)
--  作者：gengwvi
--  发布时间：2016/10/24 14:05:00
--  [求助]批量打印选定的行的内容
准备加一个按钮，批量打印选定的行生成的窗口套打内容。



[此贴子已经被作者于2016/10/24 14:07:51编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/10/24 15:47:00
--  

With Tables("订单")

    Dim r1 As integer = .TopPosition
    Dim r2 AS integer = .BottomPosition
    For i as Integer = r1 To r2
        .position = r

        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Print()
    Next
End With
--  作者：gengwvi
--  发布时间：2016/10/24 16:51:00
--  
提示错误如下：
      编译错误：“r”是“private”，因此它在此上下文中不可访问
错误代码：.position = r

.position = i 就对了，谢谢！！非常感谢
[此贴子已经被作者于2016/10/24 16:53:39编辑过]