Borrar, eliminar Area de Impresion de un rango

2 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 mes 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2750
Borrar, eliminar Area de Impresion de un rango

Hola amigos

Tengo esta rutina dentro de un evento para guardar la hoja1

Dentro de esta tengo definidas 2 areas de impresion

'Elimina objetos Shapes (formas) existentes en la hoja
    Set h2 = Sheets(1)
    If Range("N11") = "" Then   'Si N11 esta vacia procede
    'borrar area de Impresion del rango ("M1:V51")
        'ActiveSheet.PageSetup.PrintArea = ""
        h2.Shapes.Range(Array("uno", "dos", "tres", "cuatro", "imagen2", "Texto5", "imagen4")).Delete
    Else 'Si N11 esta ocupada, entonces
        h2.Shapes.Range(Array("uno", "dos", "tres", "cuatro")).Delete
    End If

Aqui quiero borrar la area de impresion del rango  ("M1:V51") M1 hasta V51 .Delete

No se es como hacer (completar esta linea de; ActiveSheet.PageSetup.PrintArea =   para que borre esta area de impresion SOLO en el rango ("M1:V51")

Etiquetas: 

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 mes 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2750
LO hice de esta formaQuisiera

LO hice de esta forma

Quisiera que algun experto me diera su opinion o inmienda a esto

    Set h2 = Sheets(1)
    If Range("N11") = "" Then

'Establecer área de impresión
        ActiveSheet.PageSetup.PrintArea = "$B$1:$K$51"
        h2.Shapes.Range(Array("uno", "dos", "tres", "cuatro", "imagen2", "Texto5", "imagen4")).Delete
   
    'Por si hay datos en este rango y no los quiere en la copia, los eliminará pero tendras Desproteger este rango en la hoja Copia
    h2.Unprotect Password:="123" 'Desprotege la copia para ejecutar limpiesa en el rango
    h2.Range("L1:Z500").Clear 'puede cambiar el rango o desactivarlo si no lo necesita

    Else
        h2.Shapes.Range(Array("uno", "dos", "tres", "cuatro")).Delete
   
    'Por si hay datos en este rango y no los quiere en la copia, los eliminará pero tendras Desproteger este rango en la hoja Copia
    h2.Unprotect Password:="123" 'Desprotege la copia para ejecutar limpiesa en el rango
    h2.Range("W1:Z500").Clear 'puede cambiar el rango o desactivarlo si no lo necesita
   
    End If

Me funciopna pero quisiera la aprobacion o que me dieran su correccion