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

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

Boa noite WSenna

Do Mestre JPaulo

https://www.maximoaccess.com/t136-resolvidoultima-pagina-do-relatorio#575

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:   " />

Página final:   " />



Abraços, WSenna

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

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

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

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

Olá Wsenna,

Veja este teste RelatorioTeste2registos.rar

Abraço

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][/img]


Página final: [img][/img]


Abraços, WSenna

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:



Foi criado um campo AgruparRelatorio



tendo inserido os dados manualmente (deverá ser automático, caso seja o que pretende)



No reporte está agrupar por AgruparRelatorio, veja



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

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

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

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

WSenna

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

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

wsenna, só tem 3 registos para o relatório, pretendo com 10.
veja:

No aguardo, abraço

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][/img]


Abraços, WSenna

Ok, compreendi
Abraço

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

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

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

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.