VB中的Activer Reports問題,在線等...

时间:2021-04-06 16:00:58
在VB6.0中引用Activer Reports 2.0,我想做到如下功能。
在打印報表時,能不能用代碼控制Page Footer,將Page Footer和Report Footer功能做到一樣.
目的:因為有一報表,大部份內容已經印刷好了,打印時,只需要打印部份內容.每張報表右下角有一個統計,位子固定.這個統計只需要顯示在報表最後一頁. 因為是固定格式的紙張,所以Detail的內容不好控制. 所以將最後一個統計放在每頁尾.這個這個位子比較好調整. 
問題:怎麼樣才可以控制這個統計只顯示在此報表的最後一頁?

不知道我說清楚沒有,希望知道的幫幫忙!
謝謝!

6 个解决方案

#1


看了二遍不是很明白
直接把统计放在Report Footer上不行吗?

#2


依旧放在 Page Footer 中,设计为 Visible = False,在报表结束时(应该有相应的事件吧)再设为 Visible = True。

#3


同上,在代码控制里有对应的事件.就算没有,也可以用代码控制啊.也就是一开始就设置为不可见.当循环结束到最后一页时再将其显示就可以了.

#4


关注

#5


Private Sub ActiveReport_PageEnd()
    if Me.pageNumber=最後一頁 then
        total.Visible=true
    else
        total.Visible=false
    end if
End Sub 

是不是這個意思啊,但這個最後一頁怎麼得來啊,找了半天沒找到相關函數。
請各位指點.
謝謝!

#6


再請教一個問題:怎麼樣可以做到,當detail達到一定的高度後,強行換頁?

#1


看了二遍不是很明白
直接把统计放在Report Footer上不行吗?

#2


依旧放在 Page Footer 中,设计为 Visible = False,在报表结束时(应该有相应的事件吧)再设为 Visible = True。

#3


同上,在代码控制里有对应的事件.就算没有,也可以用代码控制啊.也就是一开始就设置为不可见.当循环结束到最后一页时再将其显示就可以了.

#4


关注

#5


Private Sub ActiveReport_PageEnd()
    if Me.pageNumber=最後一頁 then
        total.Visible=true
    else
        total.Visible=false
    end if
End Sub 

是不是這個意思啊,但這個最後一頁怎麼得來啊,找了半天沒找到相關函數。
請各位指點.
謝謝!

#6


再請教一個問題:怎麼樣可以做到,當detail達到一定的高度後,強行換頁?