02/03/2009, 14:40
satır çizgilerini sayfanın alt tarafına kadar devam ettiren kod rapor tek sayfa olduğunda çalışıyor fakat 2 sayfa olduğunda çalışmıyor
çalışması için yardımcı olun lütfen
çalışması için yardımcı olun lütfen
Sayfalar: 1 2
02/03/2009, 14:40
02/03/2009, 18:15
Özetlersem; boş satır ekleme kontrollerini, sadece son sayfada ve son sayfaya kalan kayıt sayısı üzerinden yapmasını sağladım.
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.
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 Sub02/03/2009, 18:53
yardımın için çok teşekkürler seruz tam istediğim gibi çalışıyor
eline koluna sağlık
eline koluna sağlık
06/03/2009, 17:26
Sn.Seruz,
Epey bir zamandır sizin eklemiş olduğunuz örneğe benzer bir çelışma üzerinde ter döküyordum.Sizin çalışmanızı görünce heyecanlandım.Ama nafile.
Birde sizin bakmanızı istirham edeceğim.sıkıntının nerden kaynaklandığını bir türlü anlayamadım.
Epey bir zamandır sizin eklemiş olduğunuz örneğe benzer bir çelışma üzerinde ter döküyordum.Sizin çalışmanızı görünce heyecanlandım.Ama nafile.
Birde sizin bakmanızı istirham edeceğim.sıkıntının nerden kaynaklandığını bir türlü anlayamadım.
Her sayfada 29 satır göstersin istiyorum.Şu halde verileri eksik gösterdiği gibi her sayfada tam düzenli olarak göstermiyor.
ilginiz ve emeğiniz için şimdiden teşekkür ederim
ilginiz ve emeğiniz için şimdiden teşekkür ederim
06/03/2009, 17:54
Bugün biraz yoğunum, fırsat bulursam gün içinde bakıp cevap vermeye çalışacağım, bugün bakamazsam hafta sonu büyük ihtimalle nete ve dolayısıyla foruma giremeyeceğimden dolayı ancak pazartesi bakabilirim.
Ben bakamasam da diğer arkadaşlar yardımcı olacaklardır.
Bundan sonra lütfen dosyalarınızı sıkıştırıp gönderin,
hem sitede gereksiz yer işgal ediyor, hem de indirmesi uzun sürüyor.
Ben bakamasam da diğer arkadaşlar yardımcı olacaklardır.
Bundan sonra lütfen dosyalarınızı sıkıştırıp gönderin,
hem sitede gereksiz yer işgal ediyor, hem de indirmesi uzun sürüyor.
09/03/2009, 13:11
i.mete bazı kod satırları iptal elince sayfa doğru çalışıyor
Sayfalar: 1 2