[Resolvido]Impressão de filtro em caixa de listagem

Boa noite,

Gostaria de ajudar do fórum para conseguir visualizar em um relatório o resultado da pesquisa em uma caixa de listagem. Não sei o comando correto.
Observação: O resultado da pesquisa é baseado em Pendências, Concluídas e Todos.
Envio o arquivo.

Dentro do Relatório, vá em propriedades, na aba dados e em fonte de registro cole esse código

Código:

SELECT Compromissos.Situação, Compromissos.Código, Compromissos.Data, Compromissos.Hora, Compromissos.Compromisso, Compromissos.Faltam
FROM Compromissos
WHERE (((Compromissos.Situação)=[Formulários]![Formulário1]![txtFiltro]));


Agora dentro da propriedade do botão "Visualizar" deixe apenas o comando

Código:

DoCmd.OpenReport "rptImpress", acViewReport


Veja se te resolve o problema!

Muito bom amigo, mas tive uma dúvida: A impressão só acontece com pendentes e concluídos, e quando eu quiser imprimir TODOS os compromissos? Ele visualiza zerado com está na posição todos.

O comando para filtragem está desta forma:

Private Sub Quadro1_AfterUpdate()

Dim strSql As String
Select Case Me.Quadro1.Value
Case 1: Me.txtFiltro.Value = "Pendente"
Case 2: Me.txtFiltro.Value = "Concluída"
Case 3: Me.txtFiltro.Value = ""

End Select
strSql = "SELECT Código, Data, Hora, Compromisso, Situação, "
strSql = strSql & "Faltam FROM Compromissos "
strSql = strSql & "WHERE Situação like '*" & IIf(Me!txtFiltro = "Todos", "*", Me!txtFiltro) & "*' ORDER BY Código;"
Me!Lista0.RowSource = strSql
Me!txtcontar = Me!Lista0.ListCount - 1
End Sub

Só não consigo "visualizar" na opção Todos. O relatório aparece em branco. Devo mudar algo neste código?

Vá em Modo Design do relatório, Dados, Fonte de registro

No critério do campo Situação coloque isto
Como "*" & [Formulários]![Formulário1]![txtFiltro]

Esse código mencionado por vc, esquece!!!
Deixe da forma que lhe enviei anteriormente.


Assim irá funcionar.

Obrigado Mestre, mais um aprendizado. Vou me aprofundar melhor no link que o Sr. me passou. Obrigado a todos.