help with reports regarding omr marks

[amin]

I am multiple groups in a report. I have the OMR marks saved as an image ( bmp, jpg, gif) eg. first.jpg, middle.jpg and last.jpg

Is it possible in vba to set up counters so that i can assign tht first.jpg should be goin on first page of every group , middle.jpg on every middle pages of group and last.jpg on last .jpg.

Following is the code i am using to assign page nos for groups.

thanks

Dim DB As Database
Dim GrpPages As Recordset
Public ProNum As String
Public pagenum, PageSet As Long


Function GetGrpPages()

' Find the group name.

GrpPages.Seek "=", Me![Provider Number]

If Not GrpPages.NoMatch Then

GetGrpPages = GrpPages![Page Number]

End If

End Function







Private Sub GroupHeader2_Print(Cancel As Integer, PrintCount As Integer)
passes = passes + 1
'MsgBox ("Passes = " & passes)
If passes > 0 Then
Me.GroupHeader1.ForceNewPage = 1
Else
Me.GroupHeader1.ForceNewPage = 0
End If
End Sub


Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)

' Find the group.

GrpPages.Seek "=", Me![Provider Number]

If Not GrpPages.NoMatch Then

' The group is already there.

If GrpPages![Page Number] < Me.Page Then

GrpPages.Edit

GrpPages![Page Number] = Me.Page

GrpPages.Update

End If

Else

' First page of group, so add it.

GrpPages.AddNew

GrpPages![Provider Number] = Me![Provider Number]

GrpPages![Page Number] = Me.Page

GrpPages.Update

End If
End Sub

Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
Dim Pos1, StartPage, EndPage As Long


If [Provider Number] <> ProNum Then
ProNum = [Provider Number]
Pos1 = InStr(1, Pagenumber, "of", vbBinaryCompare)

StartPage = Trim(Mid(Pagenumber, 6, Len(Pagenumber) - Pos1))
StartPage = Trim(Mid(StartPage, 1, 3))
If Pos1 + 3 <= Len(Pagenumber) Then
EndPage = Trim(Mid(Pagenumber, Pos1 + 3, Len(Pagenumber)))
End If
PageSet = (EndPage - StartPage) + 1
pagenum = 1
Else:
pagenum = pagenum + 1
End If

SF = "Page " & pagenum & " of " & PageSet

End Sub

Private Sub Report_Open(Cancel As Integer)

Set DB = DBEngine.Workspaces(0).Databases(0)

DoCmd.SetWarnings False

DoCmd.RunSQL "Delete * From [Category Group Pages];"

DoCmd.SetWarnings True

Set GrpPages = DB.OpenRecordset("Category Group Pages", DB_OPEN_TABLE)

GrpPages.Index = "PrimaryKey"

End Sub