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

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

Obrigada

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