Dim intCopy As Integer
Dim intTotalCopies As Integer

Private Sub Report_Open(Cancel As Integer)
	On Error Resume Next

	' Get the number of copies from the frmOpenLabels form.
	intTotalCopies = Forms!frmOpenLabels!txtLabelCopies
End Sub
 
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
	intCopy = intCopy + 1
	If intCopy < intTotalCopies Then
		Me.NextRecord = False
	Else
		Me.NextRecord = True
		intCopy = 0
	End If
End Sub