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


2 participantes

    [Resolvido]Dividir relatório

    avatar
    valliclay
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 09/09/2011

    [Resolvido]Dividir relatório Empty Dividir relatório

    Mensagem  valliclay 1/5/2013, 19:43

    Bom Noite!

    A Todos

    Pessoal tenho uma tabela com 06 colunas e em uma das colunas tenho as seguintes informações:

    coluna1
    SA1
    SA2
    SA3
    SA4
    SB1
    SB2
    SB3
    SB4

    E assim por diante, quanto gero o relatório ele sai sequencial pois a mesmo tem 600 linhas.

    o que eu preciso:

    preciso que o relatorio quando for imprimir saia por exemplo:

    na folha 1
    SA1
    SA2
    SA3
    SA4

    Na folha 2
    SB1
    SB2
    SB3
    SB4

    E assim por diante alguém conhece um jeito para ou filtrar por item como por exemplo SA1 ou dividir por referência para que sai cada grupo em uma pagina ou folha.


    desde já agradeço a todos
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  Avelino Sampaio 2/5/2013, 05:30

    Olá!

    Uma das soluções é usar um pouquinho de programação no relatório.  Para forçar a quebra de página, usamos o metodo ForceNewPage

    Use o evento "Ao imprir" da seção detalhes e da seção de cabeçalho para controlar a quebra.

    Segue o código utilizado no relatório, que controla a quebra de página a cada 4 registros.


    Option Compare Database
    Dim x

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    x = x + 1
    If x = 4 Then
       x = 0
       Me.Detalhe.ForceNewPage = 2
    End If
    End Sub

    Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    Me.Detalhe.ForceNewPage = 0
    End Sub



    Tudo sobre programação em relatórios, vc aprende na minha vídeo-aula abaixo:

    Vídeo - Programação de relatórios - Parte 1

    Bom estudo!


    Última edição por Avelino Sampaio em 8/7/2013, 10:15, editado 1 vez(es)
    avatar
    valliclay
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 09/09/2011

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  valliclay 2/5/2013, 20:12

    Boa noite

    Avelino

    Desde já agradeço sua dica vou tentar adaptar o código

    logo respondo se deu certo

    mais uma vez obrigado
    avatar
    valliclay
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 09/09/2011

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  valliclay 6/5/2013, 23:39

    Boa noite!

    Avelina

    Tentei adaptar o código nas não consegui.

    A coluna que tenho que usar como referencia como no exemplo acima.

    columa 1
    SA1
    SA1
    SA1
    SA1
    SA1
    SA1
    SB1
    SB1
    SB1
    SB1
    SB1

    Não da para contar quantas vezes por exemplo o SA1 repete pois as informações quando atualizadas mudam.
    Quando por exemplo começo a ler SA1 e chegar na SB1 preciso que o SB1 seja impresso na outra pagina e assim por diante.

    você sabe se tem como usar o campo como referencia por exemplo.
    Quando utilizamos numero de linha apos a 5 linha ele muda de pagina.
    ME!MAQ = SA1 quando ele achar o SB1 mudar de pagina.

    Desde já agradeço pela ajuda
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  Avelino Sampaio 8/5/2013, 06:19

    Segue exemplo sem programação.

    A idéia foi criar um grupo para o campo MAQ e no cabeçalho da seção do grupo, alterar a propriedade "Força quebra da página" para "antes da seção"

    Sucesso!
    Anexos
    [Resolvido]Dividir relatório AttachmentCla3200.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 96 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    valliclay
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 09/09/2011

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  valliclay 8/5/2013, 19:38

    Boa noite!

    Avelino

    Mais uma vez agradeço pelo retorno e pela dica vou testar e te informo se deu certo.

    Obrigado
    avatar
    valliclay
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 09/09/2011

    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  valliclay 14/5/2013, 18:37

    Boa noite!

    A todos

    Desculpe a demora para responder.

    Avelino

    Agradeço suas dicas

    caso resolvido


    Conteúdo patrocinado


    [Resolvido]Dividir relatório Empty Re: [Resolvido]Dividir relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:41