Área de Impresión

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.

Listo lo hize asi:

ActiveSheet.PageSetup.PrintArea = _
Range(Range("b3:g3"), ActiveCell.SpecialCells(xlLastCell)).Address


"Angelo Vernaza" escribió en el mensaje
news:

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.