[Resolvido]Imprimir relação inteira escolhida pelo usuario

Olá pessoal!

Tenho uma relação de IDs que gera um relatório para cada ID

Gostaria de imprimir de uma única vez uma relação entre IDs

Ex: imprimir todos os relatório de ID inicial até o ID final.

Att

Fabiano

Acreditando que você filtre o relatório através de um formulário, coloque como critério na "fonte de registro" do seu relatório:

Como [Formulários]![Seuformulário]![OCampo] & "*"

Bom dia...

Algo parecido com isso...

SELECT * FROM ... WHERE id BETWEEN 50 AND 70 ORDER BY id -->isso vai na consulta que gera o relatório em questão.

Talvez, sem ver o teu projeto, terá que criar um formulário desacoplado onde irá inserir o iD Inicial ( 50 ) e o ID Final (70) e um botão de comando para a referida impressão do mesmo.


Ou de um modo mais simples.....Na consulta que gera o relatório

Na coluna onde está o ID coloque..

Entre Forms!SeuFormulario!IDInicial E Forms!SeuFormulario!IDFinal

Mesmo assim terá que ter um formulário desacoplado com os campos IDIncial e IDFinal.

Bons estudos e bom trabalho.

Olá!

Elaborei um formulário conforme estrutura baixo para imprimir os itens selecionados

Criei em campo chamado "Sel" e gostaria de imprimir apenas os itens selecionados "sim"

Campos:

id_aber         Nome_trecho             N_sequencia    Sel
218                 Teste1                      001                 Sim
218                 Teste2                      002                 Sim
218                  Teste3                      003                 Não
218                  Teste4                      004                 Não

Obs: Achei mais interessante do que ID inicial e ID final com id_aber selecionado como "sim" que sempre será o mesmo id_aber.

Um botão para visualizar e outro para imprimir em uma só vez todos os "N_sequencia" e "id_aber"



Se puderem contribuir, agradeço

Att

Fabiano

Bom dia pessoal!

Consegui desenvolver e resolver o problema

Se alguém desejar ter o exemplo disponibilizo.

Criei um formulário com opção de seleção e imprimi os N_sequencia selecionados.

Att

Fabiano

Boas...

Independente de qualquer pedido de usuário, o intuito do fórum é a partilha de conhecimento.

Sugiro que poste aqui um exemplo do que fez para que outros, que porventura tenham esse tipo de duvida, saibam como resolver.

Boas...

Independente de qualquer pedido de usuário, o intuito do fórum é a partilha de conhecimento.

Sugiro que poste aqui um exemplo do que fez para que outros, que porventura tenham esse tipo de duvida, saibam como resolver.

Olá pessoal!

Não estou conseguindo carregar o exemplo.

Como faço para enviar a quem quiser?

Att

Bom dia

Siga a seta ...



Se tive dificuldades, segue o link:
https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

Fabiano, algum avanço?

Olá!
Criei na tabela campo Sel:Sim/Não e criei uma lista com os seguintes comandos

Botão: Marcar todos
On Error GoTo MarcarTodos_Click_Erro

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE sua consulta SET Sel=-1"
DoCmd.SetWarnings True

   Me.Lista = Empty
   Me.Lista.Requery


On Error GoTo 0
Exit Sub


MarcarTodos_Click_Erro:


DoCmd.Hourglass False

End Sub

Botão: desmarcar
On Error GoTo MarcarTodos_Click_Erro

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE sua consulta SET Sel=0"
DoCmd.SetWarnings True

   Me.Lista = Empty
   Me.Lista.Requery


On Error GoTo 0
Exit Sub


MarcarTodos_Click_Erro:


DoCmd.Hourglass False

End Sub

Criei um campo de pesquisas para pesquisar os itens a serem impressos

Ex: Nome_trecho

Botão: imprimir a seleção

Comando:
Private Sub GeraImpressao(TipoImpressao As Integer)
Dim Msg As String
On Error GoTo 1

   Dim rst1 As Recordset
   Dim Sel1 As String
   If Nz(DCount("id da sua tabela", "sua tabela", "Sel = true"), 0) = 0 Then
       MsgBox "Atenção; Não Foi Selecionado Nenhum Registro!", , "Atenção!"
       Exit Sub
   End If
   
   Sel1 = "SELECT * from SuaTabelawhere Sel = True"
   Set rst1 = CurrentDb.OpenRecordset(Sel1)
       
   Do While Not rst1.EOF
   
       If TipoImpressao = 1 Then
           DoCmd.OpenReport "seu relatório", acViewNormal, , "id sua tabela=" & rst1![id da sua tabela]
   
       
Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
  Exit Sub

1 a:
   DoCmd.Hourglass False
   DoCmd.Echo True
End Sub

Botão imprimir:
Dim Msg As String
On Error GoTo 1


   Call GeraImpressao(1)

Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1 a:
   DoCmd.Hourglass False
   DoCmd.Echo True
End sub

Olá!

Grato pela contribuição de todos

Fabiano