............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ayuda con una Macro para Imprimir

Ver el tema anterior Ver el tema siguiente Ir abajo

Ayuda con una Macro para Imprimir

Mensaje por Invitado el Miér Mar 04, 2009 5:01 pm

Hola que tal:
Quisiera que alguien me pueda orientar a tratar de hacer lo siguiente a travez de una macro para excel, tengo una rango de impresion, por ejemplo de a1..l500, pero lo que necesito es como le hago para cambiar automaticamente este rango, si a veces la informacion solamante ocupa el rango de a1..l200, o a veces de a1..l100, etc. se podra hacer esto, y a la vez al momento de cambiar el rango por logica cambia el numero de hojas que se van a imprimir, espero algunas sugerencias para tratar de corregir este problemita, gracias y saludos...

Invitado
Invitado


Volver arriba Ir abajo

Re: Ayuda con una Macro para Imprimir

Mensaje por jairga el Miér Mar 04, 2009 5:46 pm

Algo parecido creo te puede servir esta macro la hice con la grabadora:
Sub Imprime()
'
' Imprime Macro
' Macro grabada el 04/03/2009 por DPTO DE CONTABILIDAD
'
' Acceso directo: CTRL+j
'
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub

asi:
estando en tu hoja activas la grabadora de macros,seleccionas A1 y pulsas las teclas CONTROL+SHIFT+FIN te debe seleccionar el rango con datos, espero ho tengas filas en blanco porque creo no te sirve. pulsas control + p y configuras tu impresion y le dices seleccion y aceptar y seleccionas nuevamente A1 y paras la grabadora. y tienes tu macro bien sencilla prueba y nos comentas si te sirve o hay que hacer alguna modificacion

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Ayuda con macro para imprimir

Mensaje por Invitado el Jue Mar 05, 2009 4:32 pm

Gracias por el post Jairga

Puse el codigo para tratar de hacer lo que les comente, pero no me funciono de esa manera y con ese codigo. No se si hubiera otro codigo para tratar de hacer la impresion, se me olvido decirte que de la fila a1 a L7, tengo los encabezados y la informacion va de la fila A8 a L250, pero como te comente, a veces esta informacion llega solamente a la fila L100, entonces como imprimir solamente ese rango, sin incluir hasta L250. Espero darme a entender. de antemano Gracia y Saludos.

Senorbacsol.

Invitado
Invitado


Volver arriba Ir abajo

Re: Ayuda con una Macro para Imprimir

Mensaje por jairga el Jue Mar 05, 2009 8:08 pm

Porque no subes tu archivo al foro para poder ayudarte mejor

Cambia tus datos por algunos ficticios

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Ayuda con una Macro para Imprimir

Mensaje por Alexanco72 el Vie Ago 14, 2009 10:18 pm

Normalmente yo hago lo siguiente
Sub Imprimir
Fila=Range("A65000").End(xlup).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & Fila
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Alexanco72

Masculino Cantidad de envíos : 5
Edad : 45
Ciudad - Pais : Barquisimeto-Venezuela
Version de Excel : 2003 y 2007
Fecha de inscripción : 03/05/2009

Volver arriba Ir abajo

Re: Ayuda con una Macro para Imprimir

Mensaje por Invitado el Lun Ago 17, 2009 2:32 pm

gracias Alexanco72 por ayudarme con la macro, si me sirvio tu ayuda y hace lo que necesitaba la macro. Un saludo para ti y para todos los de este excelente foro.

Atte.
Senorbacsol.

Invitado
Invitado


Volver arriba Ir abajo

Re: Ayuda con una Macro para Imprimir

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.