Rapor sayfa toplamı ve her sayfada yeni toplam
Ayrıca ekteki dosyada istediğinize yakın bir rapor örneği var, inceleyin.
Menüden: "İrsaliye Fatura Yazdırma" - "Fatura Yazdırma Ekranı"
Rapor Adı : "RAPOR FATURA"
Sorununuzu çözemezseniz lütfen kendi örneğinizi ekleyin, yardımcı olmaya çalışırız.
Kod:
Option Compare Database
Dim ADET_TOP, TUTAR_TOP, KDVTUTAR_TOP
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
ADET_TOP = ADET_TOP + ADET
TUTAR_TOP = TUTAR_TOP + TUTAR
KDVTUTAR_TOP = KDVTUTAR_TOP + KDVTUTAR
End Sub
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Dim YTL As Currency, YKR As Currency
'Fatura birden fazla sayfa olduğunda ilk sayfalara toplam yazmaması için.
If Me.TOPLAMSAYFA > 1 And Me.SUANKISAYFA < Me.TOPLAMSAYFA Then
Me.LabelToplam.Caption = "SAYFA TOPLAMI : "
Me.SAYFATOP_ADET = ADET_TOP
Me.SAYFATOP_TUTAR = TUTAR_TOP
Me.SAYFATOP_KDVTUTAR = KDVTUTAR_TOP
Me.FATURA_TOPLAMI.Visible = False
Me.YAZI.Visible = False
Me.YALNIZYAZ.Visible = False
Else
Me.LabelToplam.Caption = "FATURA TOPLAMI : "
Me.SAYFATOP_ADET = Me.GENELTOP_ADET
Me.SAYFATOP_TUTAR = Me.GENELTOP_TUTAR
Me.SAYFATOP_KDVTUTAR = Me.GENELTOP_KDVTUTAR
Me.FATURA_TOPLAMI = Me.GENELTOP_TUTAR + Me.GENELTOP_KDVTUTAR
Me.FATURA_TOPLAMI.Visible = True
Me.YAZI.Visible = True
Me.YALNIZYAZ.Visible = True
'Yazı ile yazdırma
YTL = Fix(Me.FATURA_TOPLAMI)
YKR = (Me.FATURA_TOPLAMI - YTL) * 100
Me.YAZI = ""
If YTL > 0 Then Me.YAZI = CONVMONEY(YTL) & " YTL "
If YKR > 0 Then Me.YAZI = Me.YAZI & CONVMONEY(YKR) & " YKR"
End If
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
ADET_TOP = 0
TUTAR_TOP = 0
KDVTUTAR_TOP = 0
End Sub