Option Compare Database
Option Explicit
Dim iTellerOverslaan As Integer
Dim iOverslaan As Integer 'aantal etiketten overslaan
Dim iAantalEtiketten As Integer 'aantal malen zelfde etiket printen
Private Sub Report_Open(Cancel As Integer)
iOverslaan = InputBox("Beginnen met etiket nr ...") - 1
iAantalEtiketten = InputBox("Aantal etiketten per klant?")
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If iTellerOverslaan < iOverslaan Then
Me.NextRecord = False
Me.PrintSection = False
iTellerOverslaan = iTellerOverslaan + 1
End If
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
iTellerOverslaan = 0
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If iAantalEtiketten = 0 Then
Me.NextRecord = True
Me.MoveLayout = False
Me.PrintSection = False
Else
If PrintCount < iAantalEtiketten Then
Me.NextRecord = False
End If
End If
End Sub