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")
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