Hi,
I am a new member of this forum and have an issue with the page footer. I want "Contact Us" to be printed in the footer on every page except the last, where I want the 'Disclaimer' to be present.
I tried to over ride the GetText method for the footer frame (Code is below), however I get the frame on the 3rd page of the report, irrespective of how big the report is. I am really confused as to where am I missing it.
Pleasssssssssse help
Function GetText( ) As String
GetText = "Contact Us"
Dim CurrentPage As Integer
Dim PageCount As Integer
CurrentPage=PageNo()
PageCount=ActualPageCount
If(CurrentPage=PageCount) Then GetText= "Disclaimer"
End Function
Thnx in advance,
Deepali
I am a new member of this forum and have an issue with the page footer. I want "Contact Us" to be printed in the footer on every page except the last, where I want the 'Disclaimer' to be present.
I tried to over ride the GetText method for the footer frame (Code is below), however I get the frame on the 3rd page of the report, irrespective of how big the report is. I am really confused as to where am I missing it.
Pleasssssssssse help
Function GetText( ) As String
GetText = "Contact Us"
Dim CurrentPage As Integer
Dim PageCount As Integer
CurrentPage=PageNo()
PageCount=ActualPageCount
If(CurrentPage=PageCount) Then GetText= "Disclaimer"
End Function
Thnx in advance,
Deepali
