Ocultar Rodapé da Página 2

Bom dia à todos!
Estou tendo a seguinte dificuldade...
Tenho um relatório de 2 páginas e quero que na página 2 o Rodapé da Página fique oculto. Tentei o seguinte:
- Inseri um campo [PAGINACIMA] no Cabeçalho da Página que mostra o número da página.
- Criei um Código VBA "ao carregar o relatório":

Private Sub Report_Load()
DoCmd.Maximize
If Me.PAGINACIMA.Value = "1" Then
Me.PageFooterSection.Visible = True
Else
Me.PageFooterSection.Visible = False
End If
End Sub

Porém, o que ocorre é que o Rodapé das duas páginas está oculto, quando o que espero é que só da página 2 fique oculto.
Alguém tem alguma ideia do que posso estar fazendo errado?
Desde já agradeço!

Amigo, veja esse Exemplo aqui: https://www.maximoaccess.com/t27994-resolvidorodape-do-relatorio-fixo-no-final-da-pagina#196500
Basicamente o que irá fazer é:

Verificar se a panina é a nº02, se for, vc diminui a Altura do Rodapé ou o torna invisivel... algo do tipo...

Veja la...


Obs: A propriedade que deve ser verificada para obter o numero da pagina atual é: Me.Page e nao Me.Pages <=== Essa aqui mostra o Numero de PaginaS do relatorio.

Obrigado pelo retorno Fabio,
mas estou tendo dificuldades em adaptar o código. Tentei várias formas e uma que percebi que altera o Rodapé foi a seguinte:
- Deixei a opção do Rodapé da página como "oculto"
- Coloquei o seguinte evento:

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
'Se for a última Pagina ele faz...
If Me.Pages = Me.Pages Then
'Diminui o Rodapé
Me.PageFooterSection.Visible = True
Else
Me.PageFooterSection.Visible = False
End If
End Sub

Desta forma, ele faz o contrário (oculta o Rodapé da página 1 e mostra da página 2), quando eu preciso (mostrar Rodapé da página 1 e ocultar da página 2). Já tentei alternar o "False" com o "True", mas aí ficam todos os Rodapés ocultos.

Leu essa parte?FabioPaes escreveu:Obs: A propriedade que deve ser verificada para obter o numero da pagina atual é: Me.Page e nao Me.Pages <=== Essa aqui mostra o Numero de PaginaS do relatorio.

O Correto é Me.Page para o que precisa!

Tente mais uma vez... Se nao conseguir damos sequencia!

Fabio,
Alterei em todas as possibilidades:

If Me.Page = Me.Page Then (mesmo jeito, ocultando da primeira)
If Me.Pages = Me.Page Then (ocultando tudo)
If Me.Page = Me.Pages Then (ocultando tudo)

Vamos la...

Me.Page Retorna o Numero da pagina (1,2,3,4)
Me.Pages Retorna o Total de Paginas do Relatorio.

Então se vc que que apenas na Pagina 2 seja ocultado o Rodapé....

Logo a comparação é:

If Me.Page = 2 then

.....

Obrigado Fabio pela ajuda,
Consegui encontrar a solução.

- Deixar Rodapé "visível"
- O código final:

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
'Se for a última Pagina ele faz...
If Me.Page = "2" Then
'Oculta Rodapé
Me.PageFooterSection.Visible = False
Me.PageFooterSection.Height = 0
Me.PageHeaderSection.Height = 0
End If
End Sub

Boa!!! Muito bem!!! Esse era o Objetivo!

Alex

Faltou o "Resolvido" no título do tópico ( e não no título da mensagem)

Se não sabe como veja ali embaixo na minha assinatura.

[ ]'s