使datawindow每页打印固定行.txt

来自「PB常用技巧 PB常用技巧 PB常用技巧」· 文本 代码 · 共 17 行

使Datawindow每页打印固定行 
    第一步:增加一个计算列,此计算列必须放在Detail段，Expression中输入: ceiling(getrow()/20) <--这里20还可以用全局函数取代，这样可以允许用户任意设置每页打印多少行。 
    第二步:定义分组,选择菜单Rows->Create Group... 
按计算列字段分组，并一定将check box-->New Page On Group Break选中。 
    第三步:将此计算列设为不可视。 
    另外，如果需要最后一页不足补空行。也很简单，如下： 
long ll_pagerow = 6    //每页打印行数 
long ll_count, ll_row 
ll_count = dw_report.retrieve(...)  //取得现有报表的总行数 
ll_count = ll_pagerow - mod(ll_count, ll_pagerow) 
If ll_count < ll_pagerow Then 
for ll_row = 1 to ll_count 
dw_print.insertrow(0) //补足空行 
next 
end If