... Excelente codigo... De calvuch
... Este.. De calvuch
Sub saltos_de_pagina1()
'El número de saltos de página horizontales está limitado a 1.026 por hoja.
Dim i As Integer
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$65535"
For i = 1 To 225
Set ActiveSheet.HPageBreaks(i).Location = Range("A" & i)
DoEvents
Next
ActiveWindow.View = xlNormalView
End Sub
.... Ahora mi consulta es como se haria para un salto de pagina cuando cada vez que encuentre una palabra... Ejemplo "BIEN"... Y eso podria ocurrir cada 10 filas o 40 filas... Y justo alli insertar el salto de pagina... Gracias de antemano....
Sub saltos_de_pagina1()
'El número de saltos de página horizontales está limitado a 1.026 por hoja.
Dim i As Integer
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$65535"
For i = 1 To 225
Set ActiveSheet.HPageBreaks(i).Location = Range("A" & i)
DoEvents
Next
ActiveWindow.View = xlNormalView
End Sub
.... Ahora mi consulta es como se haria para un salto de pagina cuando cada vez que encuentre una palabra... Ejemplo "BIEN"... Y eso podria ocurrir cada 10 filas o 40 filas... Y justo alli insertar el salto de pagina... Gracias de antemano....
