Area de Impresión VARIABLE en macro

03/05/2006 - 02:11 por Marvin | Informe spam

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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Francisco MTY

03/05/2006 - 03:42 | Informe spam

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."

Responder a este mensaje

#2 Francisco MTY

03/05/2006 - 06:07 | Informe spam

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

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."

Responder a este mensaje

#3 Marvin

03/05/2006 - 18:39 | Informe spam

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ó:

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

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."

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida