areas de impresion

hola, Isrrael !

... como borrar totalmente las areas de impresion o los saltos de pagina en excel?
... libro antiguo... 30 hojas reales... le aplicaron muchas veces el vista previa al salto de pagina
... salen todas cortadas y esas 30 hojas aumentan a 50 hojas
... borre todas las vistas definidas, borre desde el menu archivo las areas de impresion, pero nada...

1) aunque el comando [borrar area de impresion] viene 'colgado' del menu archivo NO aplica a todas las hojas en el :-((
-> cada hoja puede tener su propia configuracion de pagina donde se incluyen margenes, area/titulos de impresion, etc. ;)

2) para eliminar las areas de impresion a todas [y por cada una de] las hojas en el ibro 'activo' prueba una macro +/- como la siguiente...
en un modulo de codigo 'normal' ==Sub BorrarAreaDeImpresion()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.PageSetup.PrintArea = ""
Next
End Sub

3) para eliminar los saltos de pagina [que solo se podrian eliminar los insertados por el usuario 'a mano']...
Sub Borrar_Saltos_de_Pagina()
Application.ScreenUpdating = False
Dim Salto As Integer, Fila As Long
On Error Resume Next
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
For Salto = .VPageBreaks.Count To 1 Step -1
.VPageBreaks(Salto).Delete
Next
End With
End Sub

juega, combina, agrega, [...] segun consideres necesario y... si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

caray!,
como siempre sorprendente ayuda!,
la verdad pensé que no había buscado correctamente, pero al ver la macro
corriendo..., eso el realmente ingenioso!

mil gracias funcionó a la perfección
Isrrael
"Héctor Miguel" wrote in message
news:%

hola, Isrrael !

... como borrar totalmente las areas de impresion o los saltos de pagina
en excel?
... libro antiguo... 30 hojas reales... le aplicaron muchas veces el
vista previa al salto de pagina
... salen todas cortadas y esas 30 hojas aumentan a 50 hojas
... borre todas las vistas definidas, borre desde el menu archivo las
areas de impresion, pero nada...

1) aunque el comando [borrar area de impresion] viene 'colgado' del menu
archivo NO aplica a todas las hojas en el :-((
-> cada hoja puede tener su propia configuracion de pagina donde se
incluyen margenes, area/titulos de impresion, etc. ;)

2) para eliminar las areas de impresion a todas [y por cada una de] las
hojas en el ibro 'activo' prueba una macro +/- como la siguiente...
en un modulo de codigo 'normal' ==> Sub BorrarAreaDeImpresion()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.PageSetup.PrintArea = ""
Next
End Sub

3) para eliminar los saltos de pagina [que solo se podrian eliminar los
insertados por el usuario 'a mano']...
Sub Borrar_Saltos_de_Pagina()
Application.ScreenUpdating = False
Dim Salto As Integer, Fila As Long
On Error Resume Next
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
For Salto = .VPageBreaks.Count To 1 Step -1
.VPageBreaks(Salto).Delete
Next
End With
End Sub

juega, combina, agrega, [...] segun consideres necesario y... si cualquier
duda [o informacion adicional]... comentas ?
saludos,
hector.