Urgente es muy importante
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
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
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
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