¡ Hola ¡
Al final con ayuda consegui que funcionara la repaginacion con un agente dejo el codigo por si es util a alguien
Sub Initialize
Dim s As New NotesSession
Dim A As Integer
Dim ESTABD As NotesDatabase
Dim VISTA As NotesView
Dim documento As NotesDocument
Dim DOCWEB As NotesDocument ' ESTO SERA EL AGENTE EN MEMORIA PARA COGER LOS PARAMETROS
Set DOCWEB=S.DOCUMENTCONTEXT ' ESTO SERA EL AGENTE EN MEMORIA PARA COGER LOS PARAMETROS
Dim CUANTOS As Integer
Dim COMIENZO As Integer, x As Integer
Dim totaldocs As Long, paginas As Long, y As Long, z As Long
Dim misvalores As String
misvalores=Lcase(DOCWEB.QUERY_STRING_DECODED(0))
xtipo=""
Call encabezado ("Quejas de usuarios",xtipo) ' AQUI NO SE SABE QUE ES XTIPO
' CUANTOS=Cint(parametro(Ucase(DOCWEB.QUERY_STRING_DECODED(0)),"CUANTOS"))
cuantos=Val(davalor(misvalores, "cuantos"))
comienzo=Val(davalor(misvalores, "comienzo"))
If CUANTOS=0 Then CUANTOS=10' Por poner un minimo de 10 en caso de no decir CUANTOS
' COMIENZO=Cint(parametro (Ucase(DOCWEB.QUERY_STRING_DECODED(0)),"COMIENZO"))
If comienzo=0 Then comienzo=1
Set ESTABD=s.CurrentDatabase
Set VISTA=estabd.GetView("wwadmin")
totaldocs=vista.EntryCount
paginas=Int(totaldocs/cuantos)
'Set documento=vista.GetFirstDocument()
Set documento=vista.GetNthDocument(comienzo)
Print "<table summary='Tabla quejas' class='bordeTablaInteriorIzq' align='center' >"
Print "<caption >QUEJAS RECIBIDAS</caption>"
Print "<thead class='cabeceraAzul'>"
Print" <tr >"
Print " <th scope='col'></th>"
Print " <th scope='col' >Clave</th>"
Print " <th scope='col' >Fecha Alta</th>"
Print " <th scope='col' >Apellidos y nombre</th>"
Print " <th scope='col' >Comentario</th>"
Print" <th scope='col' >Estado</th>"
Print" </tr>"
Print"</thead>"
Print "<tfoot class='cabeceraAzul'>"
Print" <tr >"
Print" <th scope='row'>2011</th>"
Print "<td colspan='5'> </td>"
Print" </tr>"
Print" </tfoot>"
Print" <tbody>"
' ESTE BUCLE NOS COLOCA EL PUNTERO EN EL PARAMETRO COMIENZO
' For A=0 To COMIENZO
' Set DOCUMENTO=VISTA.GETNEXTDOCUMENT(DOCUMENTO)
' Next
' While Not documento Is Nothing ESTO LO COMENTAMOS PORQUE COGE TODOS LOS DOCS
' EN SU LUGAR PONDREMOS UN BUCLE CON FOR
For A=1 To CUANTOS
Print"<tr class='cabecerRojo'>"
Print " <td style='padding:10px 0 0 10px'>"
Print " <a href='/inet/defenciu.nsf/modiQueja?openagent&clave="
Print documento.clave(0)
Print "'><img src='/graficos/botonBuscar.jpg' alt='ver registro' title='ver registro' style='border:0;'</a> </a>"
Print " </td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.clave(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.falta(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.apellidos(0)+documento.nombre(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.motivo(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.estado(0)+"</td>"
Print "</tr>"
Print "<tr><td colspan='6' height='1' bgcolor='#000'></td></tr>"
Set documento=vista.GetNextDocument(documento)
'Wend ESTO SOBRA PORQUE ES DEL WHILE AHORA PONDREMOS NEXT
Next
Print "</tbody>"
Print"</table>"
For x=1 To paginas
y=x*cuantos
z=((x-1)*cuantos)+1
If z=comienzo Then Print "("
Print "<a href='/inet/Defenciu.nsf/adminquejasF?OPENAGENT&cuantos="+Ltrim(Str(cuantos))+"&comienzo="+Ltrim(Str(z))+"'>"
Print x
Print "</a>"
If z=comienzo Then
Print ")"
End If
If x<paginas Then Print ", "
Next
' Print {<a HREF="?OPENAGENT&CUANTOS=10&COMIENZO=}+Cstr(comienzo+cuantos)+{">1</a>}
End Sub
Un saludo