Printing Image Contact Form

I created a print image form in my project so that when a user opens the form, it cycles through all the images stored in a temp folder and prints them out four images/page at a time until all the images have been cycled through. I am using the below code on the "OnCurrent" event of the form. The problem I am having is trying to close the form with code after the images have been cycled through. I get an error message stating that "this action can't be carried out while processing a form or report event" I guess it is caused by the form still being sent to print. How do I add a code to catch the event when the form has finished printing? Also, when I open the form by itself, it works correctly and prints all of the images. However, when I tried to use a switchboard to open the form, it prints the switchboard form. Please help me in correcting this. Thanks

Private Sub Form_Current()
Dim mysql As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim PicPath As String
Dim TotalSet As Integer
Dim CurSet As Integer
Dim SetStart As Integer
Dim RecNo As Integer
Dim PicNo As Integer
Dim RecCount As Integer
Dim RecNoMove As String
Dim PageCount As String


Set rs = New ADODB.Recordset
Set conn = CurrentProject.Connection

mysql = "SELECT tbl_Image.*, tbl_Image.SelectPrint " & _
"FROM tbl_Image " & _
"WHERE (((tbl_Image.SelectPrint)=Yes));"

rs.Open mysql, conn, adOpenKeyset, adLockOptimistic
RecCount = rs.recordCount

TotalSet = (Int(((RecCount) / 5)) + 1)
CurSet = 1
PicNo = 1

SetStart = (((CurSet) * 4) - 4) + 1
rs.MoveFirst

NextSet:
For RecNo = 1 To 4
PicPath = rs("myimagepath")
Me("image" & PicNo).Picture = PicPath
PicNo = PicNo + 1
rs.MoveNext
If rs.EOF Then
If Me.Image1.Picture = "(none)" Then
End
Else
PageCount = "Page " & CurSet & " of " & TotalSet
Me.PageCount_txt = PageCount
DoCmd.PrintOut acPrintAll
GoTo closepage

End If
End
Else
End If
Next RecNo
PageCount = "Page " & CurSet & " of " & TotalSet
Me.PageCount_txt = PageCount
DoCmd.PrintOut acPrintAll
PicNo = 1
CurSet = CurSet + 1
Me.Image1.Picture = "(none)"
Me.Image2.Picture = "(none)"
Me.Image3.Picture = "(none)"
Me.Image4.Picture = "(none)"
GoTo NextSet

End

closepage:
DoCmd.Close acForm, "frm_printimage_4", acSaveNo

End Sub