Localiza pagina

Hola, puedes localizar los saltos de página con:

Verticales: Worksheets.VPageBreaks.item(i)
Horizontales: Worksheets.HPageBreaks.item(i)

Espero que te sirva,

Saludos desde Barcelona

Jordi


"Maria" escribió en el mensaje
news:043f01c47a7e$62a44fe0$

Hola!, mi pregunta es, como localizo mediante una macro
cada uno de los saltos de pagina o/y como me voy a X
numero de pagina


Gracias de antemano!

Prueba el siguiente codigo


Dim h1 As Worksheet
Set h1 = ThisWorkbook.Worksheets(1)
Dim m As String
Dim i As Integer

For i = 1 To 500
If h1.Rows(i).PageBreak <> xlPageBreakNone Then
If Len(m) > 0 Then
m = m & ", "
End If
m = m & i
End If

Next
MsgBox m



pero es lento
espero te sirva de algo
"Maria" escribió en el mensaje
news:043f01c47a7e$62a44fe0$

Hola!, mi pregunta es, como localizo mediante una macro
cada uno de los saltos de pagina o/y como me voy a X
numero de pagina


Gracias de antemano!

hola, Maria !

... como me voy a X numero de pagina

encontrar X pagina ['impresa'] DEPENDE de una serie de factores 'adicionales'
[y que cada usuario puede modificar 'a voluntad', por lo que pudieran estar 'fuera de tu control'] como...
-o- la impresora 'de salida' [y su resolucion]
-o- los margenes de impresion
-o- si la hoja tiene titulos 'fijos' [superior y/o lateral]
-o- si se ha definido una area de impresion 'pesonalizada'
-o- si esta 'ajustando' a __ paginas de alto × __ paginas de ancho o... usando el 'zoom'
-o- si el 'orden de impresion' va hacia abajo y a la derecha [o primero a la derecha y luego hacia abajo]

la 'busqueda' de X pagina [impresa], se basaria en la 'ubicacion' de saltos de pagina [podria ser 'lento'] :(
[ademas] cada que se 'cambien' los factores anteriores, sera necesario [nuevamente] 'buscar/encontrar' la X pagina

el codigo del procedimiento que utilizo para estos 'casos'... es [bastante] largo.
si te interesa... ¿a que direccion te lo hago llegar?
saludos,
hector.