MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 295
    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 : 6818
    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 : 295
    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 : 6818
    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 : 295
    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 : 6818
    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 : 295
    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 : 6818
    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: 8/8/2020, 13:05