Como inserto salto página cada 72 filas excel
Quiero eliminar los saltos de páginas existentes
Y agregar 1 cada 72 filas, hasta la fila 65500
No todas las celdas contienen datos.
Gracias
Y agregar 1 cada 72 filas, hasta la fila 65500
No todas las celdas contienen datos.
Gracias
1 Respuesta
Respuesta de calvuch
1
Prueba esto
Sub saltos_de_pagina()
'El número de saltos de página horizontales está limitado a 1.026 por hoja.
Dim i As Integer
Dim n As Integer
ActiveWindow.View = xlPageBreakPreview
n = 73
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$65500"
For i = 1 To 71
Set ActiveSheet.HPageBreaks(i).Location = Range("A" & n)
n = (n + 72)
DoEvents
Next
ActiveWindow.View = xlNormalView
End Sub
Sub saltos_de_pagina()
'El número de saltos de página horizontales está limitado a 1.026 por hoja.
Dim i As Integer
Dim n As Integer
ActiveWindow.View = xlPageBreakPreview
n = 73
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$65500"
For i = 1 To 71
Set ActiveSheet.HPageBreaks(i).Location = Range("A" & n)
n = (n + 72)
DoEvents
Next
ActiveWindow.View = xlNormalView
End Sub
