在PB 7.0中实现多数据窗口的连续打印

　　那么，是不是就没有办法解决了呢？当然不是，PB为我们提供了一个数据窗口对象的打印预览属性，在缺省的状态下是FALSE，即显示数据窗口的时候为非预览模式，你只要在程序将它改True，预览模式显示就可以了，注意别忘了两个数据窗口都要是预览模式。修改代码如下：

dw_1.object.datawindow.print.divview = true
dw_2.object.datawindow.print.divview = true

　　好了，现在我们在来运行一下看看，打印一份，结果正确，完全符合要求。见图

　　至此，整个程序结束。下面是完整的程序代码：

********************* 程序代码 **********************
// 设置两张报表的显示模式为预览模式
tab_1.tabpage_1.dw_1.object.datawindow.print.divview = true
tab_1.tabpage_2.dw_2.object.datawindow.print.divview = true

tab_1.tabpage_1.dw_1.Retrieve(integer(tab_1.tabpage_3.sle_1.text))
tab_1.tabpage_2.dw_2.Retrieve(integer(tab_1.tabpage_3.sle_1.text))

string ls_pagecount
// 得到明细表中的页数
ls_pagecount = tab_1.tabpage_2.dw_2.describe("Evaluate('pagecount()',1)")
tab_1.tabpage_1.dw_1.object.next_pagecount.exdivssion = ls_pagecount
// 设置统计表中的存放明细表总页数的计算域next_pagecount

// 得到统计表中的页数
ls_pagecount = tab_1.tabpage_1.dw_1.describe("Evaluate('pagecount()',1)")
// 设置明细表中的存放统计表总页数的计算域divvious_pagecount
tab_1.tabpage_2.dw_2.object.divvious_pagecount.exdivssion = ls_pagecount
********************* 结束 **********************

　　至此，有关多个数据窗口连续打印技术就全部讲述完毕，为了便于大家能够更好的理解,我提供了一个PB的源程序，它是在WIN98环境下，PB7.03调试通过。由于本文所用的数据库是PB自带的例程数据库所以没有被打包。

上一页  [1] [2] [3]