[Resolvido]Imprimir registro atual, com erro

Olá
Não estou conseguindo imprimir registro atual

Tenho frm principal - frmFuncionarioPrestacaoNovo (dados do funcionario)  com dois subfoms FRMMOVIMENTO e FRMLANCAMENTOS

Crio o movimento do mês no sub form frmmovimento baseado na DataMovimento e faço os lançamentos no subform frmlancamentos

Quando peço para imprimir registro atual ele mostra  o Funcionário em questão e todos os lançamentos dele e não somente o atual

Private Sub Comando396_Click()
Dim strNomeDoDoc As String
   Dim strFiltro As String
   Me.Refresh
   strNomeDoDoc = "RelReciboPrestacao"
   strFiltro = "id= Forms!frmFuncionarioPrestacaoNovo!id"
   DoCmd.OpenReport strNomeDoDoc, acPreview, , strFiltro
End Sub

grato

Já tentou filtrar pela consulta através do construtor de expressões?

Não tentei não, será que poderia me ajudar, sei que existe mas nunca usei o construtor

Estou postando aqui a parte que trata da impressão, quem sabe fica mais facil o help

Além de não imprimir somente o atual e sim todos os recibos do funcionario em questão, também está repetindo os recibos.

Olá Vanderlei

Em anexo

olá Franklin

Obrigado pela ajuda, problema solucionado.

Olá Vanderlei

Que bom!!!