Sn atyaty,

  Fatura(1).rar (Boyut: 229,76 KB / İndirilme: 48) inceleyiniz.

walla sorun nerede hala anlamadım sanırım benim bilgisayarda bi problem var access i kaldırp yendiden kurdum ancak sonuç değişmedi.

baskı ön izlemede herşey düzgün çıkıyor ancak print edince ki hem normal printer hem pdf şeklinde print ederken sonuç yanlış çıkyor.

Daha doğrusu 1.sayfanın altında 27 yazması gerekirken 54 olarak hesaplıyor tabikii sonraki sayfalarda hep ilk sayfa toplamı kadar fazla olarak gidiyor.

Acaba sizin kullandığınız printer markası ile alakası olabilirmi (Bana da şu an çok mantıklı gelmedi)

Herşey için yeniden yeniden teşkkür ederim.

Hayırlı bayramlar.

Sn atyaty,
Me.txtToplam = IIf(Page = 1, 0, Nz(Me.txtToplam, 0))
koyu olan yeri degistirin. Iyi Bayramlar.

Aşağıdaki kodda dediğiniz yeri bulamadım.
her türlü varyasyonu denedim ancak istediğim sonuca bir türlü ulaşamadım.

Biliyorum size zahmet veriyorum ama inanın bunu çözecek başka kimsem yok.
Teşekkrüler.
------------------------------
Option Compare Database

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
'On Error Resume Next
If PrintCount = 1 Then
If Me.txtToplam = 0 Then Me.txtToplam = 0
Me.txtToplam = Nz(Me.txtToplam, 0) + Nz(Me.Toplam, 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 SayfaAltbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
Me.txtToplam = Nz(Me.txtToplam, 0)
Me.txtToplam.Visible = IIf(Page = Pages, False, True)
End Sub

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

  atyaty.rar (Boyut: 52,57 KB / İndirilme: 52) inceleyip, kendi projenize uygulayabilirsiniz.

Müthiş çalışıyo

TAM SÜPER OLMUŞ ELİNİZE SAĞLIK

Allah Razı Olsun.