Same Label for entire Sheet

[Scott]

I used the following code to produce a report that prints a full page of the
same label, but I have 1 problem that it only works when the RecordSource of
the report is set to have just 1 record, but if I pull a regular report then
only the first record is displays 30 labels on it's page but the other
records displays less then 30 labels on their pages; how do I fix that. ?

Here is the Code

****************

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Static intMyPrint As Integer

intMyPrint = intMyPrint + 1

If intMyPrint Mod 30 = 0 Then
Me.NextRecord = True
intMyPrint = 0
Else
Me.NextRecord = False
End If

End Sub

*******************

Thanks,

Scott