etiket basımı

[simendifer]

Degerli arkadaşlar bir zaman önce sayın modalı nın yardımıyla bir yaka kartı basımı için bir program yapmış ve sizlerlede paylaşmıştım şimdi bu yakakartı programını etiket basımı için kullanmak istiyorum yardımınızı istediğim yer raporda bir kişinin kaydını yan yana veya alt alta secmeli olarak 2 3 4 5 6 tane gibi gösterebilirmiyim bir ara bunun mümkün oldugu bir pragramı formda görmüştüm yanılmıyorsam ayrıca barkod basımı diye freware bir ticari programda bu özellik var barkod basmak istediğinde aynı etiket barkodundan kaç tane istiyorsan yazıp aynı kagıda yanyana aynısından çıkartıyor bu olay acaba benim programda yapabilirmiyiz bu konuda yardımlarınızı bekliyor saygılar sunarım

 

[seruz]

Sanırım istediğiniz bu şekilde olacak.
Çözümü ekte bulabilirsiniz.
Eklediğim kodu da ayrıca yazıyorum.

Option Compare Database
Dim K%, ct As Integer

Private Sub Report_Open(Cancel As Integer)
    K% = 1
    ct = Forms![BİLGİGİRİŞİ]![Adet]
End Sub

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
If ct <> K% Then
    Me.NextRecord = False
    K% = K% + 1
    Exit Sub
End If
If ct = K% Then
    Me.NextRecord = True
    K% = 1
    Exit Sub
End If
End Sub

 

[simendifer]

Sayın seruz teşekkür ederim tam istediğim gibi olmuş ellerinize saglık bende ilaveten o an görünen forumdaki kayıtı istediğim kadar çogaltması için sorguda ID ye ölçüt olara [Formlar]![BİLGİGİRİŞİ]![PRO_ID] bunu yazdıgımda tam mükemmel oldu teişekkürler saygılar sunarım