Print current record multiple times

[mathhex]

Hi,
I'm using Access 2010.
I've got a Form with a print button with the following code:

Private Sub prt2_Click() 
Dim strWhere As String
      If Me.Dirty Then    'Save any edits.
         Me.Dirty = False
     End If

      If Me.NewRecord Then 'Check there is a record to print
         MsgBox "Select a record to print"
     Else
         strWhere = "[Id] = " & Me.[Id]
         DoCmd.OpenReport "gegevens Report_new", acNormal, , strWhere
     End If End Sub

This works fine, accept i only get 1 copy, and i need 10 copies.
how do i get this to work?

 

[Ranman256]

For I = 1 to 10
Docmd.openreport .....
Next

 

[KenHigg]

Loop through the OpenReport 10 times?

 

[KenHigg]

Too slow this morning...

 

[mathhex]

Loop through the OpenReport 10 times?

Yes, thank a lot. It works!!