以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] Word报表分页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121639)
--  作者：mikee
--  发布时间：2018/7/10 21:17:00
--  [求助] Word报表分页
请教，Word报表，连续多记录打印的时候，怎么设置让每条记录都新开始一页？ 
--  作者：有点蓝
--  发布时间：2018/7/10 21:27:00
--  
参考：http://www.foxtable.com/webhelp/scr/2882.htm
--  作者：mikee
--  发布时间：2018/7/10 21:33:00
--  
一条记录占一页半，已经按帮助文档的设置过了，但并没有分页
--  作者：有点蓝
--  发布时间：2018/7/10 21:49:00
--  
测试没有问题，按2楼的方式设置每页记录数1
--  作者：mikee
--  发布时间：2018/7/10 22:31:00
--  
蓝版可以帮忙看看附件的例子么， 参考帮助文件的方法用BuildOne生成的报表，怎么都不会分页


示例二

利用BuildOne方法，可有根据指定条件的行来生成报表，例如：

Dim drs As List(of DataRow) = DataTables("出库").Select("出库日期 = #" & Date.Today & "#") \'筛选出符合条件的行
If drs.Count > 0 Then \'如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
    Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
    For Each dr As DataRow In drs \'逐行生成报表
        wrt.BuildOne(dr)
    Next
    wrt.Show() \'显示报表
End If
--  作者：有点蓝
--  发布时间：2018/7/10 22:32:00
--  
RecordsOnEachPage属性，整数型，指定每页打印的记录数。
--  作者：mikee
--  发布时间：2018/7/10 22:37:00
--  
感谢感谢，可以了

这个属性有点隐蔽啊，整个帮助就出现了一次。 多谢蓝版！
--  作者：13769901760
--  发布时间：2018/10/19 9:42:00
--  

没有人吗？