[Resolvido]Relatório com dados subform

Boa tarde!

Prezados colegas, tenho um subform que filtro conforme as datas por período, conforme imagem abaixo.
Gostaria de gerar um relatório com os dados dessa filtragem.
Tentei baixar o exemplo disponibilizado pelo amigo "vieirasoft" (http://dl.dropbox.com/u/8157744/Stella.rar) mas está indisponível.
Alguém poderia me dar alguma idéia de como fazer isso?
Desde já, agradeço a ajuda dos colegas.

Oi.

Normalmente faço um SQL na fonte de registro do relatório com critério para filtrar o registro, mas dever testar em seu projeto.
Deixei em anexo um relatório que uso para imprimir o cabeçalho do principal com os registros do sub.
Espero que te de luz.

Abraço.

Boa noite bondan!

Seu relatório não está anexado. Caso tenha disponibilidade, por favor, envia de novo.
Obrigado!

Boa tarde!

encontrei este código do amigo Avelino Sampaio que faz exatamente o que eu preciso.
Porém, meu primeiro filtro é um código numérico "ID". Não estou conseguindo fazer a escrita correta do código na segunda linha. Alguém sabe como fazer?
Obrigado!!

Código:

filtro = ""
If Not IsNull(strpesquisa) Then filtro = filtro & "Participante LIKE '*" & strpesquisa & "*'" 
If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)

docmd.OpenReport "NomeRelatório",acViewPreview ,,filtro


Código:

filtro = ""
If Not IsNull(strpesquisa) Then filtro = filtro & " AND Participante = " & strpesquisa 
If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
If filtro <> "" Then filtro = Mid(filtro, 6)

docmd.OpenReport "NomeRelatório",acViewPreview ,,filtro

Bom dia!

DamascenoJr, muito obrigado por sua ajuda.

Seu auxílio atendeu perfeitamente às minhas necessidades.

Muito obrigado mesmo!!

O fórum agradece o retorno. Sucesso.