FORCAR QUEBRA DE PAGINA NO DATAREPORT

RICARDO.RAPA 20/12/2011 14:50:55
#391694

Alguem sabe cmo força quebra de página no datareport, preciso que cada páginas apenas mostre 40 registro.

Tentei assim:

Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim contador
contador = 0

Set rs = New ADODB.Recordset

rs.Fields.Append [Ô]numero[Ô], adVarChar, 255
rs.Fields.Append [Ô]nome[Ô], adVarChar, 255

rs.Open

Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
contador = contador + 1
rs.AddNew
rs.Fields([Ô]numero[Ô]) = contador
rs.Fields([Ô]nome[Ô]) = Data1.Recordset.Fields([Ô]nome[Ô])

If contador = 40 Then
lista.Sections(1).ForcePageBreak = rptPageBreakBeforeAndAfter
contador = 0
End If

Data1.Recordset.MoveNext
Loop

lista.Orientation = rptOrientPortrait
With lista
Set .DataSource = rs
.Show
End With

Alguem conhece algum exemplo?