Imprimer +sieurs fois le meme rapport

J'ai cette procedure mais elle n'imprime QU'UN UNIQUE exemplaire,
comment la modifier pour printer 6 exemplaires ? et MERCI.
---------

Sub PrintInvoice_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_PrintInvoice_Click

Dim strDocName As String

strDocName = "Invoice"
' Print Invoice report, using Invoice Filter query to print
' invoice for current order.
DoCmd.OpenReport strDocName, acViewNormal, "Invoice Filter"

Exit_PrintInvoice_Click:
Exit Sub

Err_PrintInvoice_Click:
' If action was cancelled by the user, don't display an error message.
Const conErrDoCmdCancelled = 2501
If (err = conErrDoCmdCancelled) Then
Resume Exit_PrintInvoice_Click
Else
MsgBox err.Description
Resume Exit_PrintInvoice_Click
End If

End Sub