[Resolvido]Impressão de dados ordenados por página

Boa tarde,

Estou a desenvolver um banco para personalização de dados
que ao serem impressos tem que ficar ordenados nas folhas
com o aspecto que envio na imagem anexa.
É possível fazer isto no msaccess?

Desde já agradeço antecipadamente,
Abraço

Peço desculpa,

Não tinha enviado o link:

http://dl.dropbox.com/u/29878861/Imagem.2.jpg

Desculpas pelo incómodo,

Obrigado

Explique melhor que dados precisa imprimir e o porque dessa personalização. Por acaso quer que os campos se repitam dessa forma com registros diferentes? Dê uma melhor clareada por favor.

Olá Criquio,

Preciso que as páginas fiquem já ordenadas pela numeração
porque o papel vai ser cortado ao meio na vertical
com a guilhotina e é mais fácil organizar por número
manualmente.

Obrigado
Abraço

Na imagem temos os números 1, 2, 3 e 4. Seria cada um uma página do relatório? Sendo cada uma dessas páginas com registro diferente? Ou seria um registro só dividido em quatro partes?

Os números 1,2,3,4 são registos,
a pág. 1 contém os registos 1 e 3 e
a pág. 2 os registos 2 e 4.

Muito Obrigado

Peço desculpa pelo trabalho, mas a minha área
profissional precisa sempre de muitos recursos
a nivel do tratamento do output final dos dados
dos relatórios.

Obrigado

Você vai precisar de funções para isso. Dê uma pesquisada no help do Access por NextRecord, PrintSection e MoveLayout. Se ainda não conseguir, coloque uma cópia do aplicativo com os elementos pertinentes à resolução da questão (tabela/consulta, form e o relatório). Para fins de redução de tamanho, retire o que não for pertinente, exclua registros, caso tenha muitos, deixando apenas o necessário para testar umas 3 páginas. Veja a dica da minha assinatura abaixo ↓↓↓

Boa noite, PPTT

Pelo que entendi, deverá utilizar tabela auxiliar utilizando DAO.
No caso que apresentou:
- Tem relatório com duas colunas e cada coluna tem um registo
- Para imprimir um ou dois registos, utiliza uma página
para três ou quatro registos, utiliza duas páginas
para cinco ou seis registos utiliza três páginas
...
- Utilize DAO para colocar em tabela auxiliar os registos pela ordem que o Access os imprime. No caso apresentado, ficaria 1, 3, 2, 4
Cumprimentos,

Muito obrigado pela ajuda,

Mas pode explicar-me os passos a seguir se fize favor?

Abraço

Novamente, PPTT

Utilize
Sub Para2Colunas()
'criado por Alexandre Neves
'em 2011-05-27
'para PPTT
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer
Dim PrimeiraVolta As Boolean

Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM TabelaOrigem ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"
Set Rst2 = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM TabelaDestino;")
PrimeiraVolta = True
InicioCiclo:
If Not PrimeiraVolta Then
Rst1.MoveFirst
Rst1.MoveNext
End If
Do While Not Rst1.EOF
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
Rst1.Move 2
Loop
If PrimeiraVolta Then
PrimeiraVolta = False
GoTo InicioCiclo
End If

Set Rst1 = Nothing: Set Rst2 = Nothing
End Sub
Cumprimentos,

Obrigado Alexandre,

Tenho que criar uma tabela de saída?
Associo este código onde?

Obrigado pelas dicas
Abraço

Bom dia, PPTT

Pensei que sabia. Deve ter uma tabela para receber os registos ordenados e utilizá-la como origem do relatório.
O código pode ser colado num módulo, para ser executado.
Cumprimentos,

Boa noite,
Criei as duas tabelas o relatório e o módulo e quando
chamo o relatório não acontece nada fica com os registos
na sequência, desculpem responder só agora.
Envio aqui o link do meu procedimento:
http://dl.dropbox.com/u/29878861/bdrelatorio.zip
Abraço

Boa tarde,
Continuo sem obter resposta,
alguém me pode ajudar?
Agradeço antecipadamente

Vou aguardar que algum colega baixe o exemplo e verifique. Estou já com alguns aqui para ver e meio sem tempo. Se pegar mais, acabo misturando tudo ou me perdendo aqui
Se, depois que eu me desenrolar de meus afazeres e dos exemplos que já tenho, ainda não tiver obtido um veredicto, eu tento dar uma olhada, OK?

Obrigado, amigo
Abraço
Nota:
Estou muito feliz por poder contar convosco, já aprendi bastante.
Obrigado mais uma vez

Boas,
Não tem novidades?
Abraço

Boas,
Acertei na moche.
Mas precisava que o relatório coloca-se
os registos sempre assim se fossem mais
números e ele não o está a fazer ou seja com
6 números deveria ficar por página com duas colunas seria:
1.ª página 1,4
2.ª página 2,5
3.ª página 3,6
O relatório na primeira volta tem que colocar
metade dos primeiros números na 1.ª coluna e a outra metade na segunda.
Envio o link do banco:

Obrigado antecipadamente
http://dl.dropbox.com/u/29878861/bdrelatorioquase%20resolvido.mdb

Existe aí uma alma caridosa que ajude,

Obrigado antecipadamente

Opá, o tema passou-me ao lado
Sei que apenas tenho o dever de consciência a ajudar.
Altere o código do relatório para
Private Sub Report_Open(Cancel As Integer)
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer
Dim Salto As Integer, Sair As Boolean

Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM TabelaOrigem ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"
Set Rst2 = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM TabelaDestino;")
Rst1.MoveLast
Rst1.MoveFirst
If Rst1.RecordCount Mod 2 = 0 Then Salto = Rst1.RecordCount / 2 Else Salto = (Rst1.RecordCount + 1) / 2
Sair = False

Do
If Rst1(0) = Salto Then Sair = True
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
If Rst1.RecordCount Mod 2 = 1 And Sair Then Exit Do
Rst1.Move Salto
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
Rst1.Move -Salto + 1
Loop While Not Sair


Set Rst1 = Nothing: Set Rst2 = Nothing
End Sub
Cumprimentos,

Deixo aqui um grande abraço e louvor e um grande
sentimento de missão cumprida neste problema,
porque sem o amigo Alexandre Neves não era possível
ele "ouviu-me", o vosso forúm é espectacular.

Um grande abraço a todos

Esqueceu o Resolvido

desculpe, está resolvidissímo

Abraços

Bom dia,

Volto a abrir este tópico porque me esqueci
de um dado importante:
Tenho um campo de texto na TabeladeOrigem e
precisava que ele fosse colocado também nesse
relatório, é possível?

Mais uma vez agradeço toda a vossa colaboração.

Obrigado e abraço

Para reabrir o tópico tenho que retirar o resolvido?

Obrigado

Não consegue?
Será montagem esquisita?
Esforce-se primeiro e se não conseguir dê detalhes

Obrigado,
Penso que será isto:
Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao, documento FROM TabelaOrigem where CampoNumeracao="& documento; ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"

Vou testar
Obrigado

Não pode ser apenas isso
O campo deve aparecer em todos os registos?

Estou muito verde nesta matéria,

Vou fazer mais umas tentativas.

Muito obrigado
Abraço

Toalha no chão,
Não consegui!!!
Se me puder ajudar agradeço.

Obrigado antecipadamente
Abraço

Desculpem estar a maçar demais,
mas ajudem por favor?

Abraço

Será isto?

Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao, documento FROM TabelaOrigem ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"
Set Rst2 = CurrentDb.OpenRecordset("SELECT CampoNumeracao, documento FROM TabelaDestino;")

Sendo que o campo "documento" é texto.

Obrigado antecipadamente

Ainda não percebi o que tem na tabela original nem o que pretende que apareça no relatório.
Na primeira dúvida explicou bem. Explique do mesmo modo.

Olá boa noite,
Os campos da tabela são:
CampoNumeração (número) e CampoTexto (texto)

Obrigado
Abraço

Ou seja preciso que os dois campos
fiquem no relatório.

Cptos

Então será
Private Sub Report_Open(Cancel As Integer)
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer
Dim Salto As Integer, Sair As Boolean

Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaOrigem ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"
Set Rst2 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaDestino;")
Rst1.MoveLast
Rst1.MoveFirst
If Rst1.RecordCount Mod 2 = 0 Then Salto = Rst1.RecordCount / 2 Else Salto = (Rst1.RecordCount + 1) / 2
Sair = False

Do
If Rst1(0) = Salto Then Sair = True
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2.Update
If Rst1.RecordCount Mod 2 = 1 And Sair Then Exit Do
Rst1.Move Salto
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2.Update
Rst1.Move -Salto + 1
Loop While Not Sair

Set Rst1 = Nothing: Set Rst2 = Nothing
End Sub

Olá,

Vou testar á noite.
Despois dou noticias.

Abraço

Boa tarde,

O código funcionou em pleno, só não resulta
quando passo a origem dos registos para uma consulta,
para fazer o seguinte filtro:

Entre [Forms]![Documentos1]![inicio numeração] E [Forms]![Documentos1]![fim numeração],

Porque quero que os dados sejam filtrados pelo relatório.

Muito obrigado por tudo
Abraço

O filtro no relatório é independente da montagem anterior.
Para que funcione, em vez de
Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaOrigem ORDER BY CampoNumeracao;")
coloque
Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaOrigem WHERE CampoNumeracao Between " & [Forms]![Documentos1]![inicio numeração] & " and " & [Forms]![Documentos1]![fim numeração] & " ORDER BY CampoNumeracao;")

Boas,

Muito obrigado, funciona só no 1.º registo do form
no 2.º registo nem sequer abre o relatório, simplesmente
desaparece.

Muito Obrigado,
Abraço

Estive a verificar a TabelaOrigem
tem os 15 registos (10 + 5) que eu gravei
mas a TabelaDestino só tem o primeiro conjunto
de 10 registos que gravei.

Obrigado antecipadamente

Envio então o link do meu procedimento:

http://dl.dropbox.com/u/29878861/BdRelatorio.mdb

Muito obrigado,
Abraço

Abri a bd
Descobri que tenho de abrir o formulário Documentos, clico no botão impressora e funciona direito.
Como é que chega a dar erro?
Será que não sabem explicar, passo-a-passo, como o erro aparece.
Não tenho tempo para o que preciso fazer para mim. Tento ajudar quem julgo não ter o meu nível de conhecimentos e, depois, vejo que não sabem sequer explicar o básico e eu, em vez de ir ao São João divertir-me parece que estou a ser tanso e a fazer o trabalho dos outros para os outros irem ao São João (e outras festas) e eu a fazer-lhe o trabalho que lhes pertence.
Este recado é para e para outros colegas semelhantes

Penso que o objectivo deste forúm
pelo que li não é fazerem o trabalho
dos outros mas sim ajudarem se quiserem!!!
Mas voltando ao que interessa agradeço a sua disponibilidade
até esta data, explicando passo a passo:

Se o formulário estiver no primeiro registo e clicar no botão
imprimir dá certo, mas se mover o formulário para os registos
seguintes então já não funciona, dá erro.

Não se sinta obrigado a ajudar
eu é que posso não ter percebido o
intuito deste forum.

Obrigado

Este é o derradeiro problema,

Obrigado

Oh PPTT

Não leve a mal o que disse, pois disse-o normalmente, apesar do cansaço das situações. Afinal, isso força-me a mudar de comportamento relativamente às ajudas. Irei apenas dedicar algum tempo, e só quando tiver, ao final do dia. Neste aspecto, quem vai ficar a perder são os colegas. Apesar que podem ficar a ganhar por ter que raciocinar.

Pelo atrás exposto, é que apenas voltei agora ao fórum.
Sobre o seu caso, substitua o módulo no relatório por este código

Private Sub Report_Open(Cancel As Integer)

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer
Dim Salto As Integer, UltimoRegisto As Integer, Sair As Boolean

Set Rst1 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaOrigem WHERE CampoNumeracao Between " & [Forms]![Documentos]![inicio numeração] & " and " & [Forms]![Documentos]![fim numeração] & " ORDER BY CampoNumeracao;")
CurrentDb.Execute "DELETE * FROM TabelaDestino;"
Set Rst2 = CurrentDb.OpenRecordset("SELECT CampoNumeracao,CampoTexto FROM TabelaDestino;")
Rst1.MoveLast
Rst1.MoveFirst
If Rst1.RecordCount Mod 2 = 0 Then Salto = Rst1.RecordCount / 2 Else Salto = (Rst1.RecordCount + 1) / 2
Rst1.Move Salto - 1
UltimoRegisto = Rst1(0)
Rst1.MoveFirst
Sair = False

Do
If Rst1(0) = UltimoRegisto Then Sair = True
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2.Update
If Rst1.RecordCount Mod 2 = 1 And Sair Then Exit Do
Rst1.Move Salto
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2.Update
Rst1.Move -Salto + 1
Loop While Not Sair

Set Rst1 = Nothing: Set Rst2 = Nothing
End Sub

Obrigado Alexandre,

Compreendo, também estou a arder de febre com isto,
vou testar já digo algo.

Abraço

Eh, voilá,
That´s it,
Gracias

Abraço

Desculpem mas vou ter que reabrir,

Quando tento imprimir filtrando através
do form um registo superior a 30.000 (por exemplo entre 30.000 e 40.000)
dá-me erro de runtime e quando faço debug mostra-me a linha:

UltimoRegisto = Rst1(0)

Tentei entre 0001 e 20.000 e entre 20.000 e 30.000 e corre bem.
Ainda tentei apagando os registos entre 00001 e 30.000 mas dá sempre erro no relatório.

Nota:
Nesta base de dados pretende-se que os registos possam ir até 999.9999
isto é possível ou não? vou apagando os registos que ficam para trás que já imprimi.

Obrigado antecipadamente