[Resolvido]Relatorio com Personalizacao da Numeracao de Paginas

Prezados:
Esta é a minha primeira participacao por aqui. Preciso de ajuda para personalizar a numeracao de paginas de um relatorio no access 2007. O meu relatorio tem as folhas numeradas normalmente no formato padrao: 1, 2, 3, 4, 5, 6... Mas preciso que esta numeracao seja alterada para: 1, 1 Verso, 2, 2 Verso, 3, 3 Verso, 4, 4 Verso ..., ou seja, o que a pagina 1 continue como 1, que a pagina 2 passe a ser "1 Verso", que a pagina 3 passe a ser "2", que a pagina 4 passe a ser "2 Verso", que a pagina 5 passe a ser "3", que a pagina 6 passe a ser "3 Verso", etc...
Como nao tenho experiencia com VB, venho pedir ajuda aos mestres.

eduardojloliveira

Seja bem vindo!

Defina a propriedade "Origem do controle" da caixa de texto que exibe o número de páginas para

="Página " & [Página] & " de " & [Páginas]

Obrigado Fernando pela atencao. Mas tentarei explicar melhor o que necessito.
Em cada folha de papel oficio preciso imprimir meu relatorio em frente e verso, mas numerar apenas na frente.
Entao a folha 1 receberá o numero 1, o verso fica sem numeracao. A folha 2 recebera o numero 2, o verso fica sem numerar. A folha 3 receberá o numero 3 e o verso fica sem numerar. Assim sucessivamente.
Mas o relatorio do access numera as folhas do relatorio em sequencia, daí quando imprimo no verso da folha 1 aparece como pagina 2.
Entao preciso que fique assim:

Registro do relatorio Numeracao da Folha
1 1
2
3 2
4
5 3
6
7 4

Espero que alguem possa me ajudar a resolver.

Desculpem que a parte final da mensagem anterior ficou meio truncada, mas a numeracao que preciso é assim:

---Registro do relatorio -------Numeracao da Folha
........ 1 .................................................1
........ 2 .................................................
........ 3 .................................................2
........ 4 .................................................
........ 5 .................................................3
........ 6 .................................................
........ 7 .................................................4
[list=1][*]

Boa tarde, eduardo
Utilize esta função

Function NumeraPaginasImpares(Numero As Integer) As String
'criada por Alexandre Neves
'em 2012-08-08
'para eduardojloliveira
'do fórum MaximoAccess
If Numero Mod 2 = 0 Then
NumeraPaginasImpares = ""
Else
NumeraPaginasImpares = (Numero + 1) / 2
End If
End Function

Na página, utilize
="Página " & NumeraPaginasImpares(Página)

Alexandre boa tarde!

Muito bom seu codigo, faz dois dias que to quebrando a cabeça rs

Vou aproveitar a dica e guardar o comando.