Ben sizi bekledim ancak süre biraz uzaması iyi olmadı. Kullanıyoruz ancak tam bilmiyoruz demişsiniz. Buna sebep kodlarda değişken adlarının İngilizce olarak yazılması büyük ihtimalle. Ben daha anlaşılır olması adına İngilizce değişken adlarını Türkçe yaparak ve istediğiniz şekilde ekliyorum. Daha önceki eklenmiş dosyalara artık ihtiyaç olmadığından onları siliyorum. Bir sorunuz olursa çekinmeyin tekrar sorun.
Aşağıdaki örnek kodları kullanarak yapabilirsiniz.
Kod:
Dim Basilan_Etiket_Sayisi As Integer
Private Sub Report_Open(Cancel As Integer)
Basilan_Etiket_Sayisi = 0
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Basilan_Etiket_Sayisi = Basilan_Etiket_Sayisi + 1
If Basilan_Etiket_Sayisi >= Forms!musteri!ADETAL Then
Me.NextRecord = True
Else
Me.NextRecord = False
End If
End Sub
Raporu istenilen kadar bastırmak için kod bankamızda yer alan kod:
Kod Bankası
"Rapor1" adli raporu 3 defa yazdirmak için su kodu deneyin
Kod:
DoCmd.OpenReport "Rapor1", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 3
Örnegin 6-8 arasi sayfalari 3 kez yazdirmak için ikinci satiri su sekilde degistirebilirsiniz:
Kod:
DoCmd.PrintOut acPrintRange, 6, 8, , 3
PrintOut komutu aktif olan rapor, form ya da tabloyu yazdirir.
Kullanmadan hemen önce yazdirmak istediginiz belgenin aktif olmasini saglayin.
Emeği geçenlere teşekkürler. Saygılar...
İş yerinde internete bağlanamadığım için akşamları ilgilenebildim. Özür dilerim.
İlginize teşekkürler , hayırlı cumalar.
Anlattıklarınız ışığında çalışacağım.
Çok yap boz yapmak programın düzgün çalışan komutlarını da etkiliyor.
Takıldığım yerde tekrar ararım
Hepinize iyi çalışmalar.
Teşekkürler sayın alpeki99 ve Seruz hocam..
Hayırlı Cuma'lar...