MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Só imprimir a última página do relatório.

    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 28/10/2015, 22:11

    Olá amigos, nessa nova dúvida como faço para imprimir apenas a última página de um relatório com mais de uma página?

    Abraços, WSenna


    Última edição por wsenna em 1/11/2015, 15:03, editado 3 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4402
    Registrado : 06/11/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  Assis 28/10/2015, 22:23



    .................................................................................
    *** Só sei que nada sei ***
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 29/10/2015, 02:53

    Olá Assis, bom dia.

    Amigão, eu já havia tentado dessa forma, mas como diz nosso Gurú JPaulo a coisa não funfou, explico:

    Meu problema é que preciso gerar um relatório em que cada página contenha no máximo 4 registros (até aí tudo bem).
    Agora é que as coisas começam a pegar: Após esses 4 registros se faz necessário que seja exibida a seção rodapé da página com alguns campos para assinaturas.
    Também resolvido. O problema maior é que na última página, caso não existam os quatro registros de praxe, eu precisaria que o rodapé da página encostasse na seção detalhe e como isso não é possível tenho procurado fazê-lo com o rodapé do relatório.
    Já tentei de tudo e cheguei à conclusão que deveria utilizar dois relatórios, um que imprimisse as páginas iniciais com o rodapé da página e outro com a última página com o rodapé do relatório.
    Parece complicado, mas tenho plena certeza que estou dando alguma mancada e que a coisa pode ser bem simples mas não estou conseguindo vislumbrar o caminho do sucesso.

    Páginas iniciais:   [Resolvido]Só imprimir a última página do relatório. <img src=" />

    Página final:   [Resolvido]Só imprimir a última página do relatório. <img src=" />



    Abraços, WSenna


    Última edição por wsenna em 31/10/2015, 22:33, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 29/10/2015, 09:30

    Olá a todos,
    WSenna, pode postar pequeno exemplo para testar e verificar se encontramos alguma solução.
    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 29/10/2015, 10:44

    Olá Ahteixeira, bom dia.

    Amigão, segue abaixo um fragmento de meu BD em que trata da listagem de eliminação de documentos.

    Observe que estou utilizando dois relatórios, o problema está no ato da impressão que está dando erro.


    Exemplo:



    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 29/10/2015, 12:24

    Olá WSenna, obrigado pela partilha, mas não tem o relatório.
    Queria analisar o seu modelo em que estava a tentar fazer tudo apenas em um relatório.
    Segundo compreendi, tem sempre em baixo a parte para assinar, e gostaria ficasse junto ao detalhe. é isso?
    Pode postar esse? Verifiquei agora estava oculto, vou verificar de tarde.
    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 29/10/2015, 12:33

    Olá Ahteixeira, bom dia.


    Desculpe-me Amigão.
    Os relatórios estão aí sim, só que eu costumo aplicar a propriedade Objeto Oculto.
    Faça o seguinte:
    Abra o Banco de dados e vá em Ferramentas >>> Opções >>> Exibir >>> e marque a caixa Objetos Ocultos.
    Pronto, dessa forma você verá os relatórios, consultas, formulários, etc.

    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 29/10/2015, 23:45

    Olá Wsenna,

    Veja este teste RelatorioTeste2registos.rar

    Abraço


    Última edição por ahteixeira em 30/10/2015, 09:39, editado 1 vez(es)
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 30/10/2015, 00:29

    Olá Ahteixeira, boa noite.

    Amigão, infelizmente não vai funfar.
    Devido à uma regulamentação do CONARQ - Conselho Nacional de Arquivos o Relatório de Eliminação de Documentos deve obedecer ao formato que lhe apresentei acima, ou seja, ao final de cada página devem ser exibidas as chancelas dos responsáveis pela eliminação, sem que haja espaço para nenhum registro em branco.

    Veja os modelos:


    Páginas iniciais: [img][Resolvido]Só imprimir a última página do relatório. Atkmir[/img]


    Página final: [img][Resolvido]Só imprimir a última página do relatório. 2dkczvd[/img]


    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 30/10/2015, 10:09

    Olá Wsenna, o poste de ontem foi um pouco a correr, nem deu para explicar.
    Antes de mais desculpe “destruir” o seu projeto, mas foi a experimentar e estava com dificuldades em inserir mais registos para testar.

    No exemplo que partilho, estou a considerar você ter apenas um relatório para tudo.
    O relatório foi ajustado para dois registos por página (mas pode ser alterado para 4 como pretende)

    Alterei a origem dos dados do relatório, veja:
    [Resolvido]Só imprimir a última página do relatório. 10p54wy


    Foi criado um campo AgruparRelatorio
    [Resolvido]Só imprimir a última página do relatório. 2nsv2ft


    tendo inserido os dados manualmente (deverá ser automático, caso seja o que pretende)
    [Resolvido]Só imprimir a última página do relatório. 123wj1e


    No reporte está agrupar por AgruparRelatorio, veja
    [Resolvido]Só imprimir a última página do relatório. 153y54z


    Verifique se é o que pretende, nos meus testes, ficou sempre a seguir ao detalhe, veja que a última página só tem um registo.
    Veja como fica o relatório

    Segue o ficheiro com os dados destas imagens RelatorioTeste2registos_rev.zip

    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 30/10/2015, 10:44

    Ok Ahteixeira, eu havia entendido exatamente como você sugeriu.

    Apenas você não levou em conta a tabela tblEliminados onde realmente estão incluídos os documentos que serão listados para eliminação.
    A tabela tblEliminação demonstra apenas a quais órgãos pertencem os documentos.

    Abraços, WSenna


    Última edição por wsenna em 31/10/2015, 22:36, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 30/10/2015, 11:07

    Olá Wsenna, sim como referi, tive alguma dificuldade em inserir dados para fazer o teste.
    No entanto, desta forma foi para demonstrar, sabemos que os dados estão incorrectos e campos à sorte.
    Gostaria de saber, independente dos dados apresentados, se está a fazer o que pretende no relatório, colocando em todas as páginas a parte da "chancelas dos responsáveis pela eliminação".
    Caso afirmativo, será apenas necessário trabalhar a origem dos dados, nem que seja necessário criar um ficheiro temporário.
    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 30/10/2015, 11:41

    Sim, está colocando as chancelas abaixo dos dados como exige a resolução do CONARQ.

    WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 30/10/2015, 11:49

    Amigo, não tenho muita disponibilidade, mas vou tentar fazer no seu projecto.
    Poste novamente o seu projecto como na mensagem nº 5, contendo a consulta para o relatório 10 registos.
    Assim iremos ter uma listagem:

    1ª pag - 4 registos
    2ª pag - 4 registos
    3º pag - 2 registos

    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 30/10/2015, 12:28

    Ok Teixeira.

    Eu, na verdade, até achei a ideia do campo AgruparRelatório excelente mas não vislumbro uma forma de fazer com que para cada registro do subformulário adicione um valor naquele campo.



    Link:



    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 30/10/2015, 15:12

    wsenna, só tem 3 registos para o relatório, pretendo com 10.
    veja:
    [Resolvido]Só imprimir a última página do relatório. 2hoy33n
    No aguardo, abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 30/10/2015, 15:23

    Certo Teixeira, no primeiro registro correspondente à Unidade GCO - Departamento de Comunicação Social só existem três registros no subformulário que correspondem às 03 Caixas contendo os documentos relativos aos Códigos e seus descritores.
    Caso você avance para os próximos registros você verá que no segundo, relativo à Unidade PROGRAD - Pró-Reitoria de Graduação você encontrará já 14 registros no subformulário e no último referente à Unidade DMO/CAEG/GRAD - Divisão de Monitoria você encontrará 09 registros no subformulário.


    [img][Resolvido]Só imprimir a última página do relatório. Etw4di[/img]


    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 30/10/2015, 15:44

    Ok, compreendi
    Abraço
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 31/10/2015, 22:31

    Olá Feras de plantão, boa noite.

    Amigos, depois de queimar mais alguns milhões de neurônios acabei de descobrir uma forma um tanto diferente de resolver essa questão mais que demonstrou ser altamente eficiente.
    Apelei pela utilização de dois relatórios, um com os campos das chancelas no rodapé da página e outro no rodapé do relatório.
    Assim, criei dois formulários de diálogo que executam essa tarefa de impromir os relatórios separadamente e ao final basta reunir as páginas e funfa legal.

    Exemplo: Minha Solução

    De qualquer forma, agradeço a todos os que de algum modo tentaram me ajudar.

    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 1/11/2015, 13:09

    Olá wsenna, conseguiu!
    Obrigado pela partilha.
    Consegui hoje concluir da forma que tinha idealizado, foi necessário criar o campo AgruparReporte e fazer a numeração de 4 em 4 registos, com o seguinte código:

    Código:
    'ahteixeira maximoaccess
    'inicio

    Dim DB As DAO.Database, RS As DAO.Recordset
    Dim x, i, x4, xNum As Double
    Dim strSQL As String
        
        
            Set DB = CurrentDb
            
            strSQL = "SELECT tblEliminados.AgruparReporte FROM tblEliminação INNER JOIN tblEliminados ON tblEliminação.ContadorAccess = tblEliminados.Index WHERE tblEliminação.ContadorAccess = " & [Forms]![frmEliminação]![ContadorAccess] & ";"
            
            Set RS = DB.OpenRecordset(strSQL)
                    
            If RS.RecordCount <> 0 Then
                'verifica nº registos
                RS.MoveLast
                i = RS.RecordCount
                RS.MoveFirst
                
                ' inicializar contadores
                x4 = 0
                xNum = 1
                
                For x = 1 To i
                    'contador 4 em 4
                    x4 = x4 + 1
                    
                    If x4 = 5 Then
                       xNum = xNum + 1
                       x4 = 1
                    End If
                        
                    'lançar contador no AgruparReporte
                    RS.Edit
                    RS.Fields(0) = xNum
                    RS.Update
                    RS.MoveNext
                Next x
            End If
            
            
            RS.Close
            DB.Close
            Set RS = Nothing
            Set DB = Nothing

    'fim---------

    Assim fica tudo num único reporte, segue o meu teste RelotorioXX.rar

    Abraço e bom domingo
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  wsenna 1/11/2015, 15:02

    Grande Ahteixeira, você não existe cara.

    Sua solução ficou simplesmente maravilhosa, obra de Fera mesmo.
    Fico imensamente grato pela ajuda, aliás, fico grato a todas as Feras deste Fórum pois o que eu sei hoje é resultado de anos batalhando primeiramente num outro Fórum do qual tenho muitas boas lembranças, o ExpertAccess, e agora este igualmente repleto de Mestres.

    Tenha um ótimo final de semana.


    Abraços, WSenna
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Só imprimir a última página do relatório. Empty Re: [Resolvido]Só imprimir a última página do relatório.

    Mensagem  ahteixeira 1/11/2015, 18:53

    Olá amigo Wsenna,
    Fico lisonjeado, também tenho aprendido muito aqui e continuo sempre apreender.
    Esta troca de experiências é muito enriquecedora, isto é que é ser MaximoAccess.
    Obrigado pelo retorno e abraço aqui de terras lusas.
    cheers

      Data/hora atual: 11/4/2021, 14:33