Bir veritabanında ürünler için paket bilgisi var. Ürün için paket etiketi basılırken paket adedi kadar etiket basmasını istiyorum.
Bu konuda daha evvel deneyimi olan arkadaşlar varsa ve yol gösterirse sevinirim. Teşekkürler.

Option Compare Database 'Use database order for string comparisons
Dim k, b As Integer
Private Sub Report_Open(Cancel As Integer)
k = 1
b = Forms![Kartela_Karti]![Miktar]
End Sub
Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
If b <> k Then
Me.NextRecord = False
k = k + 1
Exit Sub
End If
If b = k Then
Me.NextRecord = True
k = 1
Exit Sub
End If
End Sub