以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关联表连接打印(套打)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11995)

--  作者:PETERD
--  发布时间:2011/8/18 22:12:00
--  [求助]关联表连接打印(套打)
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
请教一个问题,关联表用什么方式可以实现套打
--  作者:czy
--  发布时间:2011/8/18 22:32:00
--  

好像直接像你这样就可以了吧。


--  作者:PETERD
--  发布时间:2011/8/18 22:37:00
--  
这样是可以打印的,一次只能打一条订单,怎么实现打印多条订单呢
--  作者:czy
--  发布时间:2011/8/18 22:53:00
--  

选定几行打印几行。

 

With Tables("表名")
    Dim n As Integer = .BottomPosition - .TopPosition
    For i As Integer = 0 To n
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Preview
        .Position = .Position + 1
    Next
End With