Control de records..

Saludos aquí vamos con algo diferente y para mi es complicado. Ahora bien tengo una forma que se llama forma1 la cual tiene numero, nombre, direction 1 y direction 2, en la forma1 a su vez tiene un subformulario que se llama subforma2 en la misma trae los siguientes datos fecha entrada, fecha de salida, y bandera, como sabes subforma2 trae los datos basados en la llave numero de Forma1, ahora mi problema es que cuando estoy en el subformulario cuando estoy en el campo fecha de salida tengo esta rutina:
Private Sub Tag_Number_GotFocus()
If Combo30 = "D" Then
Dim choi As String
choi = InputBox("Do you want print pass", "PinNumber")
If choi = "Y" Then
' ******************************
Dim stDocNamef16 As String
Dim stLinkCriteriaf16 As String
stDocNamef16 = "Get There Plus"
stLinkCriteriaf16 = "[Pin Code Number]=" & "'" & Me![Resident Pin Code Number] & "'"
DoCmd.OpenReport stDocNamef16, acViewPreview, , stLinkCriteriaf16
'******************************
Else
End If
Else
End If
End Sub
Y el problema es que me imprime todos los records del subformulario y no solo el record donde estoy en el subformulario. Como ves esta rutina tiene una condición para imprimir a su vez carga la llave pero me imprime en el pequeño reporte todos los records del subformulario, y lo que deseo es que imprima solo la información donde estoy situado en el subformulario osea el subformulario puede tener muchos records y solo quiero imprimir desde donde yo este, obviamente tengo información en la forma que necesito utilizar también, ¿gracias amigo?.