bu soru ile diğer soru arasındaki farkı anlayamadım yanlış anlamadı isem burda siz zaten elinizde 50 kayıtlık bir rapor var ama siz ayrıca sonradan ellede yazabilelim diye 50 60 70 her neyse satırlıkda boş kayıt istiyorsunuz doğrumu anlamışım diğer soruya gelince o arkadaşda tam olarak anlatamadı isede benim anladığım elinde matbu bir form var ve bu formda orta alanda bir boşluk var orayı satırlarla dolurmak istiyor lakin dolu satırlara bilgiler gelecek boş satırlar ise boş gelecek tamamen soruların iyi anlaşılmamasından dolayı devamlı kopukluk yaşanıyor sorularınızı iyi yazın bol açıklaması olsun varsa görüntüsü örneği kısaca soruyu formdaki en aceminin bile anlayacağı şekilde görsel malzeme ile destekleyinki bazen acemi arkadaşlarında orijinal fikirleri olabilir kendisi yapamasada access de her şey yapılır mantığıyla bir başkası yapabilir tembel arkadaşımıza böyle muhteşem bir fikir ortaya koyduğu için teşekkür ederim

Merhabalar arkadaşlar;
evet Sn Güleş konuyu tamamen iyi analiz etmiş ve sorunu tam olarak ortaya koymuş.
Benim de bu alanda bir sorunum var.
başka bir forumda arkadaşların yardımı ile sorunum belli bir noktaya geldi ancak tam olark sonuçlanmadı.
Benim raporumun açıklama kısmında bir boş alan var.Ve bu alanda belirecek 28 satırın belirmesini istiyorum.Yani cekilen veri 30 satır ise 2. sayfaya geçecek.Dolayısıyla 2. sayfayıda 28 satır oluşmalı ki sayfanım bütünlüğü kaybolmasın.
ekte bir çalışmanın son halini göreceksiniz. Yadımlarınızı esirgemeyin zira ben oldukça acemi bir accessciyim.
Şimdiden ilgilenenlere kolaylıklar dilerim ve ilgilerinden dolayı teşekkürlerimi sunarım.
  vt1(2).rar (Boyut: 77.88 KB / İndirme: 4)

KayitSayisi.mdb dosyasinda yaptigim bu ornek sanirim oldu.

Burada dikkat edilmesi gereken bir nokta, ilave edilecek boş satırlarin ne ile doldurulacağı.
Ben Ayrıntı (detail) kısmındaki tüm text box'ların etrafına aynı boyutta boş dikdörtgenler(rectangle) ekleyerek ve textbox'ların görünürlüğünü kaldırarak çözdüm.


Option Compare Database
Option Explicit
Dim TopKayitSayisi, BuSayfadaYazilanKayitSayisi, SayfaKayitSayisi As Integer

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
TopKayitSayisi = TopKayitSayisi - 1
BuSayfadaYazilanKayitSayisi = BuSayfadaYazilanKayitSayisi + 1

If TopKayitSayisi = 0 And BuSayfadaYazilanKayitSayisi < SayfaKayitSayisi Then Me.NextRecord = False
If TopKayitSayisi < 0 Then
Me.SrNO.Visible = False
Me.AdNo.Visible = False
Me.Tutar.Visible = False
Me.NextRecord = False
If BuSayfadaYazilanKayitSayisi = SayfaKayitSayisi Then Me.NextRecord = True
End If

End Sub

Private Sub Report_Open(Cancel As Integer)
TopKayitSayisi = DCount("*", Me.RecordSource)
SayfaKayitSayisi = 30
End Sub

Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
BuSayfadaYazilanKayitSayisi = 0
End Sub

Sn seruz, güzel olmuş .