nelem
30 de Mayo del 2005

Hola yo lo que quiero hacer es al abrir un report decirle que solo me muestre los 9 primeros registros en la primera hoja y que despues muestre los siguientes 9 en otra y asi lo estoy intentando hacer con esto:

Dim Registro As New ADODB.Recordset
Dim Registro1 As New ADODB.Recordset
strSQL = "Select count(*) as num_registro From tunidad "
strSQL1 = "Select * From TUnidad "
Set Registro = Nothing: Registro.Open strSQL, Connection, adOpenKeyset, adLockPessimistic
Set Registro1 = Nothing: Registro1.Open strSQL1, Connection, adOpenKeyset, adLockPessimistic
i = 0



Do Until Registro1.EOF
i = i + 1

MsgBox (Registro1!CodArt)
If i = 9 Then
i = 0
'Aqui debo decir que me salte a otra pagina

End If
Registro1.MoveNext

'registro1.NextRecordset
Loop

'CryReport.PrintFileCharSepSeparator = " "
'CryReport.RecordsSelected = 9
' CryReport.RecordsPrinted = 9
'CryReport.RecordsRead = 9
CryReport.PrintReport


End If


Muxas gracias desde ya

mvallejos
30 de Mayo del 2005

Nelem

Esto lo podés solucionar desde el diseño del reporte, el el formato de la secciòn detalle, tilda la opciòn que dice
'Pagina nueva despuès'
Luego, pulsa el botoncito de editor de fórmula correspondiente al tilde, en el editor de formula colocas lo siguiente

RecordNumber > 0 And Remain(RecordNumber/9) = 0

Con esto, cuando el numero de registro sea 9 o múltiplo de 9, te genera una pagina nueva.
Lo que no me acuerdo si la funciòn que te da el remanente o resto de una división se llamaba
Remain, controla eso en la lista de funciones matemàticas.

Espero que sirva

Saludos