Code to print images on report

[bonekrusher]

Hi All,

I am having trouble printing my images on a report. The report is linked to a query. The problem is that its only printing the last image on record. Here is my code.

Thanks for the help.

Private Sub Report_Activate()
Dim pathx As String
Dim Loc As String
Dim nm As String

pathx = Me.Application.CurrentProject.Path
Loc = pathx & Me.Imagepath
Me.Text12 = Loc
Me.imagetest.Picture = Loc
   

End Sub