[attachment=15880]Merhaba
Benim bir envanter defteri yazdırmam gerekiyor ancak, her sayfanın altına toplam alıp diğer sayfanın başına nakli yekün koyup devam etmem gerekiyor. Neredeyse 11.000 satırlık bir defter bu , sitediki diğer örnekleri inceledim ancak sonuca varamadım.
Yardımlarınızı rica ediyorum.

örneğinizi ekleyiniz yardımcı olalım
raporun yazıldıgında olay yordamı kodları sanırım bunu uygulayamadınız



Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then

Me.txtToplam = Nz(Me.txtToplam, 0) + Nz(Me.değer, 0)

End If
End Sub

Private Sub RaporÜstbilgisi_Print(Cancel As Integer, PrintCount As Integer)
Me.txtNakliYekün = 0
Me.txtToplam = 0
End Sub


Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
Me.txtNakliYekün = Nz(Me.txtToplam, "")
End Sub

Merhaba
Cevabınız için teşekkür ederim
Dosyayı ekleyememişim acemiliğimden
Gönderdiğiniz örnek bana uyuyor ancak bir önceki sayfanın alt toplamını bir sonraki sayfanın başına nakli yekün yapmaya çalıştım. Beceremedim.
Ben yinede benim dosyamı buraya ekleyeyimm. Yardımcı olabilirseniz çok sevinirim.

rapor 1 i inceleyiniz

Çok Teşekkür ederim cevabınız için
Muhteşem daha ne söylenebilir ki
Görüşmek üzere.

Arkadaşlar örneklere günlerdir bakıyorum ancak bir türlü anlyamadım ne yaptığınızı.

Kodu alıp kopyaladım olmadı tektek yazdım olmadı yani kafayı yemek üzereyim.

Benim istediğim de aynı İkinci sayfadan itibaren sayfa başına bir önceki sayfanın Toplamı

Sayfa sonuna da nakli yekünle birlikte o sayfanın toplamı

Sadece son sayfaya sayfa toplamını almayacak.

Benim dosyam ekte bir el atan olursa çok sevinir hep dua ederim onun için.

Şimdiden teşekkürler herkese