Macros & VBA: ActiveSheet.HPageBreaks

[mrocf]

Prueba con el siguiente código, siguiendo las instrucciones que allí se indican.

Código:

Sub InsertaSaltoDePagina()
'---------------------------------
' a) Se supone que la fila 1 contiene los encabezados del informe
' b) Seleccionar una columna en la que las únicas celdas vacías sean las
'    de separación entre Clientes
'---------------------------------
Dim Celda As Range
  Set Celda = Cells(1, ActiveCell.Column).End(xlDown).End(xlDown)
Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Celda.EntireRow
  Set Celda = Celda.End(xlDown).End(xlDown)
Loop While Celda.Row < 65536
  Set Celda = Nothing
End Sub

Saludos, Cacho.