Joshua,
I've enclosed below Steve Schapel's reply to your question, which I
had a few months ago.... it works perfectly.
Bill Stanton
=============================================
Courtesy of Fred Gutkind...
"The following will permit skipping used label positions.
First make sure your label report is properly printing a full sheet of
labels.
Then add a Report Header to your label report.
Add 2 text boxes to the Header.
1) Name one SkipControl
Leave it's control source unbound
2) Name the other SkipCounter
Set it control Source to =[Skip How Many?]
Now code the Report Header Format event as below:
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
Next code the Detail Print event:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount <= [SkipCounter] And [SkipControl] = "Skip" Then
Me.NextRecord = False ' Skip missing labels on sheet
Me.PrintSection = False
Else
[SkipControl] = "No" ' Print labels
Me.PrintSection = True
Me.NextRecord = True
End If
End Sub
When you run the report it will ask how many labels to skip (enter 0
for none). Then it will run, printing the first label at the
indicated position +1. "
- Steve Schapel, Microsoft Access MVP
