¿Cómo configurar un rango de impression variable?

hola, Pep !

En una hoja... tengo una celda... la cual es un rango resultado de un calculo, del tipo: A1:C25;F1:L30.
Quisiera realizar una macro que tomara este valor, que es cambiante, y lo utilizara como rango de impresion.

1) si necesitas de dicha 'precision' -A1:C25;F1L:30- [es decir, definir rangos NO contiguos como area de impresion]...
y suponiendo que 'una celda' pudiera ser 'D1' -?-
-> prueba con las siguientes lineas en alguna macro [ajusta el nombre de la hoja]...

With Worksheets("hoja1")
.PageSetup.PrintArea = .Range("d1").Text
End With

2) si seguimos suponiendo que 'la celda' es 'D1' pero el rango 'variable' es continuo [o A1:C25... o F1:L30]
a) define una area de impresion 'cualquiera'
b) ve a [menu] insertar / nombre / definir...
c) selecciona el que se hubiera definido como 'area_de_impresion' [o similar] y...
d) RE-definelo con una formula +/- como la siguiente: -> =indirecto($d$1)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.