[Resolvido]Imprimir só o filtrado

Oi amigos tenho aqui uma questão que n/ estou a ver como resolver e preciso da vossa ajuda. Cá vai !
tenho um botão p/ imprimir, na consulta tenho no criterio do campo Data :

Código:

Entre [Forms]![frmQryFeridas]![DI] E [Forms]![frmQryFeridas]![DF]

E na mesma consulta tenho no campo Nome o seguinte critério :

Código:

Como "*" & [Forms]![frmQryFeridas]![txtpesquisa]

No botão o sguinte codigo :

Código:

Private Sub Imprimir_Click()
DoCmd.OpenReport "reltabCadFeridas", acViewPreview, , Me.Filter
End Sub

Falta ainda dizer que é um form com subform e tenho no form dois campo para Data Inicial - Data Final com um botão como seguinte código :

Código:

Private Sub filtro_Click()
Dim strFiltro As String
strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' AND Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
Me.subfrmConsultaFeridas.Form.Filter = strFiltro
Me.subfrmConsultaFeridas.Form.FilterOn = True
End Sub

Nesse mesmo form tenho um outro campo txtPesquisa que tenho o seguinte código :

Código:

Private Sub txtpesquisa_Change()
Dim strFiltro As String
strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' "
Me.subfrmConsultaFeridas.Form.Filter = strFiltro
Me.subfrmConsultaFeridas.Form.FilterOn = True
End Sub

O problema é que ao tentar imprimir um só Cliente apenas na data filtrada, aparece todos os Cliente que tem registos nesse período de tempo.
Preciso aqui da vossa ajuda. Obrigado

Olá;

Se o seu relatório tiver a origem na consulta já filtrada, não necessita do Me.Filter, apenas;

DoCmd.OpenReport "reltabCadFeridas", acViewPreview

Amigo João Paulo mesmo que retire o Me.Filter no ecran filtra apenas o correto mas ao imprimir mantém os registos todos efectuados dentro do período filtrado.

Pitaco. Caso seu interesse seja imprimir o registro que está sendo visualizado no formulário, o problema está no botão "imprimir".

Veja se ajuda:

https://www.maximoaccess.com/t8865-resolvidoimprimir-relatorio-do-registro-atual-do-formulario

https://www.maximoaccess.com/t3538-resolvidoimprimir-registro-atual

https://www.maximoaccess.com/t2222-resolvidoproblemas-na-hora-de-imprimir-registro-atual

Oi amigos esta resolvido e da seguinte forma :

Código:

DoCmd.OpenReport "reltabCadFeridas", acViewPreview , , Cliente

Apenas acrescentei o nome do campo a ser filtrado no campo txtpesquisa. Desta forma esta ok.

Obrigado a ambos... Fiquem bem

Obrigado pelo retorno.