[Resolvido]Dividir relatório

valliclay 1/5/2013, 20:43

valliclay: Novato; Respeito às regras :

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

Mensagem nº1

Dividir relatório

Mensagem valliclay 1/5/2013, 20: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** 2/5/2013, 06:30

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

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

Mensagem nº2

Re: [Resolvido]Dividir relatório

Mensagem Avelino Sampaio 2/5/2013, 06: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, 11:15, editado 1 vez(es)

valliclay 2/5/2013, 21:12

valliclay

valliclay: Novato; Respeito às regras :

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

Mensagem nº3

Re: [Resolvido]Dividir relatório

Mensagem valliclay 2/5/2013, 21: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

valliclay 7/5/2013, 00:39

valliclay

valliclay: Novato; Respeito às regras :

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

Mensagem nº4

Re: [Resolvido]Dividir relatório

Mensagem valliclay 7/5/2013, 00: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** 8/5/2013, 07:19

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

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

Mensagem nº5

Re: [Resolvido]Dividir relatório

Mensagem Avelino Sampaio 8/5/2013, 07: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

Cla3200.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.