Proteger Area de Impresión

hola, Angelo !

Como c puede hacer para proteger el area de impresión de un documento
de tal forma que solo impriman la seleccion que yo le di?

graba una macro mientras configuras la impresion (para que veas todas las propiedades implicadas)...
y (por ejemplo) puedes dejar al usuario que modifique (o... realmente que INTENTE modificar) lo que quiera pero...

-> por codigo TU restableces/ajustas/decides/indicas/... las propiedades (del .PageSetup) a los defaults que quieras

-> (solo toma en cuenta que) -> TODA propiedad QUE NO ESTABLEZCAS (de manera expresa y NO implicita) en el codigo...
-> seran propiedades que el usuario SI podra manipular (o re/establecer) a su libre voluntad y criterio
(p.e. si NO limpias por codigo la propiedad .PrintTitleRows -> el usuario podria establecer los suyos)

-> (ademas) no importa si el usuario las cambia (en la vista preliminar)... al momento de imprimir... volveran TUS propiedades
(asi que)... asegurate de establecer TU las propiedades necesarias (margenes, orientacion, area, calidad, etc. etc. etc.)

-> el verdadero problema... seria si tu libro se abre SIN permiso de usar las macros -?-

-> no olvides que son (solo) ejemplos... y que adaptarlo a tu real necesidad... dependera de los comentarios que hagas
el siguiente ejemplo supone que la configuracion de impresion es solo para la hoja1

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

1) en el modulo de codigo del libro (ThisWorkbook) ==Private Sub Workbook_BeforePrint(Cancel As Boolean)
If HojaEnGrupo("hoja1") Then Configura_mi_hoja
End Sub

2) en un modulo de codigo normal ==Option Private Module
Function HojaEnGrupo(ByVal Nombre As String) As Boolean
Dim Hoja As Worksheet
For Each Hoja In ActiveWindow.SelectedSheets
If LCase(Hoja.Name) = LCase(Nombre) Then HojaEnGrupo = True: Exit For
Next
End Function
Sub Configura_mi_hoja()
With Worksheets("hoja1").PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.PrintArea = "$a$1:$f$20"
.LeftHeader = Format(Date, "mm/dd/yy")
.RightFooter = "Hoja 35"
' no olvides controlar/incluir/agregar/... TODAS las propiedades necesarias
End With
End Sub