MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 277
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 29/1/2020, 10:54

    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


    Última edição por zcarloslopes em 30/1/2020, 14:27, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 29/1/2020, 11:31

    Olá Carlos,

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

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 277
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 30/1/2020, 09:46

    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
    Anexos
    [Resolvido]Adicionar página em branco no final do relatório AttachmentExtraPage.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/1/2020, 13:15

    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
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 277
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 30/1/2020, 14:31

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/1/2020, 15:23

    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
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 277
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 30/1/2020, 15:36

    Boa tarde ahteixeira,

    Com certeza,

    Anexo exemplo.

    Obrigado
    Anexos
    [Resolvido]Adicionar página em branco no final do relatório AttachmentExtraPage_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 4 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/1/2020, 15:38

    Olá Carlos,

    Obrigado, isto é que é ser "MaximoAccess" Wink

    Abraço

      Data/hora atual: 1/6/2020, 20:27