![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
30/07/2008, 12:21
|
![Avatar de mrocf](http://static.forosdelweb.com/customavatars/avatar174421_2.gif) | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
Macros & VBA: ActiveSheet.HPageBreaks 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. ![Afirmando](http://static.forosdelweb.com/fdwtheme/images/smilies/afirmar.gif)
Última edición por mrocf; 30/07/2008 a las 12:26 |