if you put all the items in a list box on a form,
then loop thru them printing as you go. The #copies is the bound value in the list box.
Or you can have it grab the record key and only print that 1 persons label
Code:
sub btnPrint_click()
For i = 0 To lstBox.ListCount - 1
iCopies = lstBox.dataitem(i) 'get new item
lstBox = vItm 'set list box to item
PrintMultipleCopies "rMyReport", iCopies
Next
End Sub
Public sub PrintMultipleCopies(pvRpt,pyCopies as byte)
Dim i As Byte
For i = 1 To pyCopies
DoCmd.OpenReport pvRpt
Next
End Function