Dim intCurrent As Integer
Dim intSkip As Integer

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

	' Get the number of lables to skip from the frmOpenLabels form.
	intSkip = Forms!frmOpenLabels!txtSkipLabels
End Sub
 
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
	If intCurrent < intSkip Then
		Me.NextRecord = False
		Me.PrintSection = False
		intCurrent = intCurrent + 1
	End If
End Sub