انت استخدمت المثال حسب تعديل الاخ ksmn64 والكود ناقص والصحيح كذا:
Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo ErrHandler
Me.ImagePreview.Picture = CurrentProject.Path & "\photos\" & Me.FilePreview & ".jpg"
ErrHandler:
If Err.Number = 2220 Then
Me.ImagePreview.Visible = False
Else
Me.ImagePreview.Visible = True
End If
End Sub
علما اني احبذ طريقة ابو خليل الاولى