Dizayn ettiğim bir raporda Sayfa alt bilgisinde "ARA TOPLAM" alanlarım mevcut ve bu alanların kenarlık stilleri 'düz çizgi' olarak ayarlı.
Ayrıca rapor alt bilgisi bölümünde aynı alanların genel toplamı alınıyor.
Ancak sorunum son sayfada "genel toplam" satırından sonra ve "sayfa alt bilgisi" bölümünde boş bir satır (sanırım kenarlık stili düz çizgi olarak ayarlanmasından dolayı) çıkıyor. Bunu nasıl çözebilirim?
Aynı şekilde rapor tasarımıma ilk sayfada görünmemek üzere bir aktarılan toplam satırı ekleyebilirmiyim?
Zaman ayırabilecek arkadaşların emeğine şimdiden teşekkürler.
Sayfa Toplamı konusunda aşağıdaki konuyu inceleyebilirsiniz.
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
Sayın Seruz;
İyi akşamlar... Emeğiniz ve paylaşımınız için teşekkürler.
Selam ve sevgiler.
Çok teşekkürler Seruz hocam.
O sorunumu hallettim. Rapor konusunda kod yazmaya da böyelece adım atmış oldum.