Anzahl beim Drucken funzt nicht richtig

Computer: Software & Programmierung Visual Basic
#1

Hallöchen,

also ich habe ein Formular aus dem heraus ich per Button über einen Bericht drucke. Das klappt super. Es werden auch die von mir über StartP und EndP selektierten Datensätze genommen.

Im Quelltext beim Drucken steht:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
Cnt = Cnt + 1
Me!FCnt = Cnt
If Cnt = Gbl_StartP Then
Me.PrintSection = True
Anz = Anz + 1
Else
Me.PrintSection = False
End If
If Anz >= Gbl_Anz Then
Me.NextRecord = True
Anz = 0
Else
Me.NextRecord = False
End If
Else
Me.NextRecord = True
Me.PrintSection = False
Me.MoveLayout = False
End If
End Sub

Problem:
wenn ich die Anzahl der zu druckenden Etiketten z.B. auf „2“ erhöhe, werden nur die ersten 2 Datensätze doppelt angezeigt.
ab dem 3.Datensatz dann funktioniert das Ganze nicht mehr.

Helft mir,seh keinen fehler.

MfG Sabine L.

#2

also ich habe ein Formular aus dem heraus ich per Button über
einen Bericht drucke. Das klappt super. Es werden auch die von
mir über StartP und EndP selektierten Datensätze genommen.

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount
As Integer)
Cnt = Cnt + 1
Me!FCnt = Cnt
If Cnt = Gbl_StartP Then
Me.PrintSection = True
Anz = Anz + 1
Else
Me.PrintSection = False
End If
If Anz >= Gbl_Anz Then
Me.NextRecord = True
Anz = 0
Else
Me.NextRecord = False
End If
Else
Me.NextRecord = True
Me.PrintSection = False
Me.MoveLayout = False
End If
End Sub

Problem:
wenn ich die Anzahl der zu druckenden Etiketten z.B. auf „2“
erhöhe, werden nur die ersten 2 Datensätze doppelt angezeigt.
ab dem 3.Datensatz dann funktioniert das Ganze nicht mehr.

Helft mir,seh keinen fehler.

MfG Sabine L.

Hallo liebe Sabine
Erstmal , ich arbeite etwas anders und ich verstehe Deine Recorde und Variablen nicht so ganz , aber ich habe ein paar Tips :
Wozu hat dein Sub die Variable „Printcount“ , wenn sie anschließend nicht verwendet wird ?
If x then
if y then
…