Create un boton de comando y en el evento al hacer click pon lo siguiente:
Private Sub Imprimir_Ficha_Click()
On Error GoTo Err_Imprimir_Ficha_Click
Dim stDocName As String
Dim stWhere As String
stDocName = ""
stWhere = ""
stDocName = "Ficha datos personales del Socio"
' stWhere = "NMAT = '" & Me![NMAT] & "'" SI GP01NMAT FUERA CARACTER
stWhere = "NMAT = " & Me![NMAT]
If Not IsNull(stDocName) And stDocName <> "" Then
DoCmd.OpenReport stDocName, acPreview, , stWhere
End If
Exit_Imprimir_Ficha_Click:
Exit Sub
Err_Imprimir_Ficha_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Ficha_Click
End Sub
El primer NMAT es el nombre del campo del informe y el segundo es el del formulario.