[Resolvido]Adicionar página em branco no final do relatório

Bom dia a todos!

Venho mais uma vez pedir a vossa ajuda...

Tenho um relatório simples, com cabeçalho, detalhe e rodapé.

Este relatório é para imprimir frente e verso.

O que preciso é que, sempre que o número de páginas é ímpar, que seja impressa uma página extra em branco, apenas com cabeçalho e rodapé.

Alguma dica?

Obrigado

Olá Carlos,

Partilhe pequeno exemplo a dar o numero impar para se testar.
Tenho uma ideia para exeperimentar.

Abraço

Bom dia!

Obrigado ahteixeira pelo retorno.

Segue então um exemplo do pretendido.

No exemplo tem 3 Relatórios para simular o pretendido.

O Relatório2 tem 2 páginas está correto.

O Relatório1 tem 1 página, deveria ter 2 páginas, sendo a página 2 em branco, apenas com o cabeçalho e rodapé.

O Relatório3 tem 3 páginas, deveria ter 4 páginas, sendo a página 4 em branco, apenas com o cabeçalho e rodapé.

Obrigado

Olá Carlos,

Obrigado pela partilha, quando tiver com um tempinho e PC (agora estou no telemóvel), vou testar o seguinte:

- Criar pagina no final do relatório invisível (para forçar pagina)
- Verificar se numero de páginas é ímpar
- Se for impar coloca visível a página do final do relatório.

E é esta a ideia, se alguém quiser avançar com os testes.

Abraço

Obrigado ahteixeira pela dica.

Graças à sua dica resolvi da seguinte forma:

Criei um cabeçalho e rodapé de grupo para inserir uma pagebreak e forçar uma página em branco no final do relatório.

Inseri uma txtbox com o nome [Pages] e origem = Pages.

No Evento Página:

Código:

Dim intTotalPages As Integer
 
intTotalPages = Me.Pages

If intTotalPages Mod 2 <> 0 Then

    Me.Section(6).Visible = False
    
End If

Perfeito

Obrigado

Olá Carlos,

Obrigado pela feedback!
Se poder partilhar o exemplo da sua última mensagem com a solução que adotou, o fórum agradece.

Abraço

Boa tarde ahteixeira,

Com certeza,

Anexo exemplo.

Obrigado

Olá Carlos,

Obrigado, isto é que é ser "MaximoAccess"

Abraço