Bueno, me tomo el atrevimiento de modificar el código de
mrocf:
Código PHP:
Sub InsertaSaltoDePagina()
Dim Celda As Range
Set Celda = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown)
Do
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(Celda.Row + 2, 1)
Set Celda = Celda.End(xlDown).End(xlDown)
Loop While Celda.Row < 65536
Set Celda = Nothing
End Sub
En este caso debes seleccionar el primer dato del primer cliente de cualquiera de las columnas. (Por ejemplo, la columna de fecha).
Espero que te ayude. Saludos
