Bunun için Raporun sağ üst köşesinde görebileceğiniz,
O anda bulunulan sayfa (AktifSayfa) ve
Rapordaki Toplam Sayfa (ToplamSayfa) 'yı
bulmak için 2 metin kutusu ekledim.
Örneğiniz ektedir.
Kod:
Option Compare Database
Option Explicit
Const cTotalRows = 26 'the desired total number of rows in this instance
Const stdHeight = 240
Dim sd As Currency
Dim lngCount As Long
Dim lngTotal As Long
Dim TotGrpx As Long
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
lngCount = lngCount + 1
If Me.AktifSayfa = Me.ToplamSayfa Then
If lngCount = TotGrpx Then
Me.NextRecord = False
ElseIf lngCount > TotGrpx And lngCount < cTotalRows Then
Me.NextRecord = False
Me![Metin50].ForeColor = 16777215
Me![Metin52].ForeColor = 16777215
Me![Metin53].ForeColor = 16777215
Me![Metin54].ForeColor = 16777215
Me![Metin55].ForeColor = 16777215
Me![Metin56].ForeColor = 16777215
End If
End If
If Me.Metin50.Height <> stdHeight Then
'advance an extra space
lngCount = lngCount + 1
End If
End Sub
Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
TotGrpx = (Me.TotGrp - (cTotalRows * (Me.ToplamSayfa - 1)))
lngCount = 0
Me![Metin50].ForeColor = 0
Me![Metin52].ForeColor = 0
Me![Metin53].ForeColor = 0
Me![Metin54].ForeColor = 0
Me![Metin55].ForeColor = 0
Me![Metin56].ForeColor = 0
End Sub
