Forums Últimos mensajes - Powered by IBM
 

Área de Impresión

08/01/2007 - 16:29 por Angelo Vernaza | Informe spam
Buenos Días Grupo,

Como hago para que en la seguiente macro no me ponga el area de impresión
fija sino cuando le doy Shift + Fin sea esa el area de impresión porque es
variable:

Sub PrintArea()
Range("B7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$B$7:$G$121"
Range("B3").Select
End Sub

Saludos,
AVC
 

Leer las respuestas

#1 Angelo Vernaza
10/01/2007 - 14:35 | Informe spam
Buenos Días Héctor,

Gracias por tu respuesta,

Pero tengo otra consulta si el rango empezara igual en la b3:g3, y cuando
uno le da la instrucción end(xldown) el busca la ultima fila con linea y yo
tengo varias filas vaacias, como hago para que salte esas filas vacias y
vaya es hasta la ultima linea de la tabla?

Saludos,
AVC

"Héctor Miguel" escribió en el mensaje
news:
hola, Angelo !

Como hago para que en la seguiente macro no me ponga el area de impresion
fija
sino cuando le doy Shift + Fin sea esa el area de impresion porque es
variable:
Sub PrintArea()
Range("B7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$B$7:$G$121"
Range("B3").Select
End Sub



[p.e.] sin hacer una seleccion 'efectiva' de los rangos...

op1:
Sub PrintArea()
ActiveSheet.PageSetup.PrintArea = _
Range(Range("b7:g7"), Range("b7:g7").End(xlDown)).Address
End Sub

op2:
Sub PrintArea()
ActiveSheet.PageSetup.PrintArea = _
Range(Range("b7"), Range("b7").End(xlDown)).Resize(, 6).Address
End Sub

saludos,
hector.

Preguntas similares