Ograničenje broja redova na strani izveštaja

[ smal @ 18.01.2010. 16:39 ] @

Ukoliko želimo da ograničimo broj prikazanih redova koji se pojavljuju na jednoj strani strani izveštaja, to možemo uraditi na sledeći način:

Otvorimo report u dizajn modu, pa u Detail sekciji kreiramo novi Text Box. Naka sadrži sledeća setovanja:

Name: txtcounter
Control Source: =1
Running Sum: Over Group
Visible: No

Zatim ćemo u On Format event Detail sekcije uneti sledeći VBA kod:

Code:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    If [txtcounter] Mod 2 = 0 Then
        Me.Detail.ForceNewPage = 2
    Else
        Me.Detail.ForceNewPage = 0
    End If

End Sub

Tako smo dobili izveštaj koji će na svakoj strani imati samo po dve stavke. Naravno, broj redova možemo menjati po potrebi.

Preuzeto sa: http://www.databasedev.co.uk/report_printing.html