Imprimir o registo selecionado

Bom dia

Tenho uma base de dados  conforme imagem em anexo e tem um botão para imprimir um relatório.



É um formulário com um subformulário
o botão tem o seguinte código :

Private Sub Comando20_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
If MsgBox("Deseja imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
strDocName = "DocumentosImp"
strFilter = "ID=forms!DocumentosEntrega!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

If Err = 2501 Then
Err.Clear
End If
DoCmd.Close acReport, "DocumentosImp"
End If

End Sub

Como poderei resolver esta situação, preciso de ajuda

E qual é a dúvida??? explique, por favor!

Bom dia Vieira

Quando clico no botão para imprimir o registo diz o seguinte

"Valor do Parametro
Formulários!DocumentosMenu!ID"

O formulário tem o nome DocumentosMenu e o SubFormulario é DocumentosEntrega

Vamos lá ver se eu entendo.

1- Você tem um formulário principal e um subformulário ligado ao principal pelo ID (numeração automática e chave primária). Até aqui tudo correcto.

2- Para que apareça na impressão, o registo que está a visualizar no ecrã, tem que ter o seguinte código:

On Error Resume Next
Dim strDocName As String
Dim a As String
a = MsgBox("Deseja visualizar a ficha deste cliente?", vbYesNo, "Confirmar")
If a = vbYes Then
Dim strFilter As String
strDocName = "NomedoRelatório"
strFilter = "ID= Forms!NomedoFormulário!ID"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
End If

Obrigada

Imprimi agora certo , só que esta o formulário num formulário de navegação continua-me a dar o mesmo erro .

O sub form está ligado ao formulário principal? E, concretamente, qual é o erro.Ponha aí um print, pois não estou a conseguir perceber se você visualiza o relatório correcto ou não.