[Resolvido]Código Imprimir informação do SubFormulario

Bom dia pessoal,

No formPrincipal, usei um botão para imprimir a ficha do funcionário.
Aqui que não atende, pede para depurar:

....... codigo btnImprimir .......
DoCmd.OpenReport "REL_RegistroFuncionario", acViewPreview, , "fun_Nome = " & Me![frm_Funcionario_sub]![txtFun_Nome]

Mais detalhes:
....... codigo Dados/fonte de registro .......
SELECT tb_Funcionario.fun_id, tb_Funcionario.fun_Nome FROM tb_Funcionario WHERE (((tb_Funcionario.fun_Nome) Like "*" & [Formulários]![form_Principal]![txtLocalizar].[Text] & "*"));

Neste formPrincipal tenho o subFormulario(frm_Funcionario_Sub) onde mostra os registros da tabela tb_Funcionario. Onde recebo o filtro da busca.

Campo txtLocalizar
Private Sub txtLocalizar_Change()
DoCmd.Requery "frm_Funcionario_Sub"
End Sub

No txtFun_Nome que recebo o resultado do localizar.

Consegui resolver

No local do campo nome, coloquei o campo id.

Resolvido