Area de Impresión VARIABLE en macro

[Marvin]

Que tal grupo....

Pregunta.... Saben cómo puedo establecer mi área de impresión cuando esta es
variable??... por medio de una macro envío un reporte con información de
tamaño variable (sólo varia en filas, las columnas se mantienen) a imprimir,
pero me esta mandando el tamaño especificado del ultimo reporte, como puedo
especificar el área actual para imprimir...??

ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$34" ' tamaño especifico

GRCS

[Francisco MTY]

Mientras no des mas detalles prueba este codigo:

Sub area()
' Borramos area de impresion anterior:
ActiveSheet.PageSetup.PrintArea = ""
'Definimos nueva a rea de impresion seleccionando el contenido
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$24"
End Sub

------------------------------------------------
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

[Francisco MTY]

Corregido ... el rango A1 lo puedes modiifcar segun sea tu caso.
Asignalo al area de codigo que consideres necesario

'Eliminamos area de impresion
ActiveSheet.PageSetup.PrintArea = ""
'Primer rango de area
Range("A1").Select
C1 = Selection.Address
'Ultima celda con datos
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'Segundo rango de area
ActiveCell.SpecialCells(xlLastCell).Select
C2 = Selection.Address
'Opcionañl: verificamos el rango a imprimir
MsgBox C1 & " " & C2
'Asignamos el area de impresion
ActiveSheet.PageSetup.PrintArea = c1c2

[Marvin]

Perfecto, Creeme que pense en algo cmo eso pero no tenia la idea bien
definida, Muchas Gracias.. sólo la maquille un poco, pero quedo¡¡ GRCS

"Francisco MTY" escribió: