Strict Standards: Only variables should be assigned by reference in /home/aportaci/public_html/plugins/system/popupframes/popupframes.php on line 697

Strict Standards: Only variables should be assigned by reference in /home/aportaci/public_html/plugins/system/popupframes/popupframes.php on line 48

Strict Standards: Only variables should be assigned by reference in /home/aportaci/public_html/plugins/system/popupframes/popupframes.php on line 508

Strict Standards: Only variables should be assigned by reference in /home/aportaci/public_html/plugins/system/popupframes/popupframes.php on line 591

Strict Standards: Only variables should be assigned by reference in /home/aportaci/public_html/plugins/system/popupframes/popupframes.php on line 592
Imprimir 3 Hojas de Excel con Macro - Foro
×
REGLAMENTO DE USO (31 Mar 2011)

Recordatorio a todos los usuarios de los foros:

5. Está prohibido transmitir a través de estos foros cualquier contenido (información, datos, gráficos, texto, archivos, ligas, software u otro material) que viole cualquier derecho de propiedad industrial o intelectual. Se requiere mencionar al autor y el medio de publicación cuando se haga una referencia editorial.

Imprimir 3 Hojas de Excel con Macro

06 Nov 2007 22:52 #18280 por Daniel_Gtz
Hola... Buen Dia.

En alguna ocasion, vi que habia una macro con la que podia imprimir varias hojas de excel con solo oprimir un boton (con la macro, por supuesto).

Alguien que me la pueda pasar... ya saben que en esto de las macros y micros no se mucho...

Gracias anticipadas.

Saludos
Daniel Gutierrez

La modestia es el complemento de la sabiduria.

Date una vuelta por este topico . Es interesante

COM_KUNENA_LOGIN_PLEASE

07 Nov 2007 01:30 #18291 por Daniel_Gtz
Hola...

Pues con la novedad que ya encontre algo que me ayuda, pero quisiera ahora que alguien me ayude, por favor, a poner la macro en un boton, o bien, si se pudiera hacer algo mejor.

Esto es lo que encontre:

[code:1]Sub Imprimir_seleccion()

'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.PrintArea = \"\"
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
End With

'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub
[/code:1]

Lo malo, es que tengo que seleccionar las 3 hojas que quiero imprimir.

Habra algo mas sencillo??

Gracias de nuevo..

Saludos
Daniel Gutierrez

La modestia es el complemento de la sabiduria.

Date una vuelta por este topico . Es interesante

COM_KUNENA_LOGIN_PLEASE

07 Nov 2007 06:14 #18293 por rdavidcg
Que tal compañero Daniel yo te recomendaria (a reserva de la mejor opinion de sensei ByPaco) estas macros el detalle es que en este ejemplo tendrias que configurar cada hoja para que quede ajustada el area de impresión y las especificaciones individuales de manera manual claro que si estas impresiones no tuvieran cambios pues solo lo harias una sola vez:

[code:1]Sub impresion1()
'
' impresion1 Macro
' Macro grabada el 06/11/2007 por Ricardo Cazares
'

'
Worksheets(\"nombre de hoja1\"«»).Activate 'hoja a imprimir
ActiveWindow.SelectedSheets.PrintPreview 'area seleccionada de manera manual
Range(\"A1\"«»).Select 'te envia a la 1er celda de la hoja activa
End Sub

Sub impresion2()
'
' impresion2 Macro
' Macro grabada el 06/11/2007 por Ricardo Cazares
'

'
Worksheets(\"nombre de hoja2\"«»).Activate
ActiveWindow.SelectedSheets.PrintPreview
Range(\"A1\"«»).Select
End Sub

Sub impresion3()
'
' impresion1 Macro
' Macro grabada el 06/11/2007 por Ricardo Cazares
'

'
Worksheets(\"nombre de hoja3\"«»).Activate
ActiveWindow.SelectedSheets.PrintPreview
Range(\"A1\"«»).Select
End Sub[/code:1]

Y en un botón asignar la siguiente macro en la hoja principal o en al primer hoja:
[code:1]Sub impresiontotal()
'
' impresiontotal Macro
' Macro grabada el 06/11/2007 por Ricardo Cazares
'

'
Application.Run \"impresion1\" 'ejecuta la 1er impresion
Application.Run \"impresion2” 'ejecuta la 2a impresion
Application.Run \"impresion3\" 'ejecuta la 3er impresion
Worksheets(\"nombre de hoja1\"«»).Activate 'te envia a la 1er hoja
Range(\"A1\"«»).Select 'en la 1er hoja selecciona la celda A1
End Sub[/code:1]

En caso de que desees que la macro ajuste el area de impresión con las instrucciones que citaste en tu comentario la deberas repetir 3 veces (por las tres hojas que deas imprimir) mas o menos asi:

[code:1]Sub impresion1()
'
' impresion1 Macro
' Macro grabada el 06/11/2007 por Ricardo Cazares
'
Worksheets(\"nombre de hoja1\"«»).Activate 'hoja a imprimir
'preparar la hoja para la impresión
Range(\"A1:E20\"«»).Select 'como ejemplo esta seria el area de impresion
ActiveSheet.PageSetup.PrintArea = \"$A$1:$e$20\"
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4 o letter en caso de tamaño carta
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
ActiveWindow.SelectedSheets.PrintPreview 'area por imprimir ajustada
Range(\"A1\"«»).Select 'te envia a la primer celda de la hoja activa
End Sub[/code:1]

Repite estos mismos pasos para las otras dos hojas (teniendo cuidado de cambiar el nombre de cada hoja y asignando un nombre distinto para cada macro) y por ultimo asigna la macro de impresion total a un boton y listo debe funcionar.
En caso de que tengas dudas con gusto por aca nos vemos y leemos Daniel

pd muchas de estas instrucciones me fueron facilitadas por sensei Bypaco (al cual le reitero mi agradecimiento) Lord del excel como bien lo llama el compañero Gabo saludos a ambos dos
Saludos!!!!!<br><br>Mensaje editado por: rdavidcg, el: 07/11/2007 01:25

COM_KUNENA_LOGIN_PLEASE

07 Nov 2007 13:40 #18296 por Daniel_Gtz
Gracias rdavidcg,

Deja lo intento, no dudes que tendre mas dudas...Ahora lo unico que me queda preguntar, es como pongo un boton, con su respectiva macro.

Saludos
Daniel Gutierrez

La modestia es el complemento de la sabiduria.

Date una vuelta por este topico . Es interesante

COM_KUNENA_LOGIN_PLEASE

07 Nov 2007 20:22 #18342 por rdavidcg
Compañero Daniel revisa el link adjunto trae un tutorial para tu duda espero y te ayude
www.4shared.com/file/28623186/be6491f6/t...rPwdVerified=d4eb2a9
solo espera a que cargue la opcion de descarga: DOWNLOAD FILE<br><br>Mensaje editado por: rdavidcg, el: 07/11/2007 15:24

COM_KUNENA_LOGIN_PLEASE

07 Nov 2007 20:41 #18343 por Daniel_Gtz
Gracias rdavidcg

Bajando para ver, analizo, intento y comento....

Saludos
Daniel Gutierrez

La modestia es el complemento de la sabiduria.

Date una vuelta por este topico . Es interesante

COM_KUNENA_LOGIN_PLEASE

Tiempo de carga de la página: 0.446 segundos
Está aquí: Home Foro Fiscal Herramientas Computacionales Imprimir 3 Hojas de Excel con Macro

Consola de depuración de Joomla!

Sesión

Información del perfil

Uso de la memoria

Consultas de la base de datos