Borrar contenido fuera del área de impresion

[Fernando Reyes]

Buenas tardes, tengo un archivo con varias hojas, me gustaría saber si alguien conoce la forma de borrar el contenido exterior del área de impresión de todas las hojas.

Gracias

 

[Dante Amor M]

Te paso la macro:

Sub BorrarExteriorPrintArea()
  Dim sh As Worksheet
  Dim rng As Range, rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range
  Dim s As String
  Dim n As Long...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fernando Reyes]

Te paso la macro:

Sub BorrarExteriorPrintArea()
  Dim sh As Worksheet
  Dim rng As Range, rng1 As Range, rng2 As Range, rng3 As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fernando Reyes]

Te paso la macro:

Sub BorrarExteriorPrintArea()
  Dim sh As Worksheet
  Dim rng As Range, rng1 As Range, rng2 As Range, rng3 As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Por aburrimiento...:

Prueba:

Sub BorrarFueraPrintArea()
    Dim h As Worksheet, r As Range, a As String, xCell As Range
    Application.ScreenUpdating = False
    For Each h In Sheets...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fernando Reyes]

Muchas gracias Dante, por la rápida respuesta, funciona perfectamente. Saludos

Al probarlo me sale error, ya que que no se ejecuta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fernando Reyes]

Por aburrimiento...:

Prueba:

Sub BorrarFueraPrintArea()
    Dim h As Worksheet, r As Range, a As String, xCell As Range...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Gracias Leopoldo, pero al prrobarlo me funciona, pero ocurre que me sale un mensaje de no es posible ejecutarlo en celdas combinadas, ya que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Al probarlo me sale error, ya que que no se ejecuta por celdas combinadas? es posible arreglarlo. Gracias.

Va la macro actualizada...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fernando Reyes]

Va la macro actualizada:

Sub BorrarExteriorPrintArea()
  Dim sh As Worksheet
  Dim rng As Range
  Dim s As String
 
  For Each sh In...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí