Private SeekRecord As Integer     ' Increment
Private CurrRecord As Integer      ' Aktuelles Etikett
 
Private Sub Berichtskopf_Format(Cancel As Integer, FormatCount As Integer)
  SeekRecord = 0
lf:
  CurrRecord = InputBox("Bitte geben Sie das Etikett ein," & Chr(13) & "wo der" & _
    "druck begonnen wird.", "Druck Start", "1")
  If CurrRecord < 1 Then
     MsgBox ("Bitte eine Zahl ab 1 eingeben.")
     GoTo lf
  End If
End Sub
 
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
  SeekRecord = SeekRecord + 1
  If SeekRecord < CurrRecord Then
     Me.NextRecord = False ' Damit wird verhindert, das der nächste datensatz 
     ' aufgerufen wird und der aktuelle im nächsten bereich steht
     Bezeichnungsfeld19.Properties("Sichtbar") = False ' Nur noch die Element 
     ' Unsichtbar machen
     tx_HerstellerSN.Properties("Sichtbar") = False
     tx_Text20.Properties("Sichtbar") = False
  Else
     Me.NextRecord = True
     Bezeichnungsfeld19.Properties("Sichtbar") = True
     tx_HerstellerSN.Properties("Sichtbar") = True
     tx_Text20.Properties("Sichtbar") = True
  End If
End Sub