¿Cómo crear un informe de etiquetas que incluya una foto?

Tengo un formulario en el que he conseguido incluir una foto para cada registro sin incluir las fotos en el programa para que no pese demasiado. El código usado (copiado de una web) es este:
Private Sub Form_Current()
On Error GoTo Error_Form_Current
Dim rutaimagen As String
rutaimagen = CurrentProject.Path & "\fotos\" & Me.[id_trabajador] & ".jpg"
[foto].Picture = rutaimagen
Me.Refresh
If IsNull([id_trabajador]) Then
[foto].Picture = CurrentProject.Path & "\Fotos\Sem Foto.jpg"
End If
Exit Sub
Error_Form_Current:
If Err = 2220 Or Err = 2114 Then
[foto].Picture = CurrentProject.Path & "\Fotos\Sem Foto.jpg"
Exit Sub
End If
End Sub
ahora intento conseguir incluir esta misma foto en un informe de etiquetas, para el que ya he conseguido incluir todo, menos hacer que funcione el código para que haga lo mismo. El código incluido es el siguiente:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo Error_Form_Current
Dim rutaimagen As String
rutaimagen = CurrentProject.Path & "\fotos\" & Me.[id_trabajador] & ".jpg"
[Image7].Picture = rutaimagen
If IsNull([id_trabajador]) Then
[Image7].Picture = CurrentProject.Path & "\Fotos\Sem Foto.jpg"
End If
Exit Sub
Error_Form_Current:
If Err = 2220 Or Err = 2114 Then
[Image7].Picture = CurrentProject.Path & "\Fotos\Sem Foto.jpg"
Exit Sub
End If
End Sub
No sé en qué falla mi programa puesto que entiendo que la función debe ser la misma, no obstante, cuando le doy al print preview me dice que si quiere dibuje yo la foto....