Excel - Printout Personalizada

Buenos dias

Quisiera saber si yo puedo programas un boton con una macro... que me permita
1- imprimir cuatro copias de "hoja1"
2- una copia de "hoja2"
3- guardar los cambios
4- cerrar excel

todo esto en un solo cógido en VBA

prueba con esto:

Sub boton_print()
'
' boton_print Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Sheets("Hoja2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

recuerda que donde Pone "Hoja2" será el nombre que tengas puesto a la pestaña.

Otra cosa, seguramente tengas que establecer el área de impresión y los márgenes antes de ejecutar la macro.

Si no te funciona, avisa.

Saludos.

Hola Patrick

Muchas gracias por tu colaboración, de antemano.

mira, este el el código que estoy utilizando que tu me brindaste y funciona sin mostrarme ningun error.

Private Sub Imprimir_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Sheets("CREDITO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("MENÚ").Select
ActiveWorkbook.Save
End Sub

La instrucción ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
esta funcionando bien, imprime 4 copias de "FRANQUICIA"; la instrucción Sheets("CREDITO").Select, tambien funciona bien; la que no me funciona bien es esta ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, pues si me imprime una copia pero de la hoja FRANQUICIA y no de la hoja CREDITO las instrucciones siguientes Sheets("MENÚ").Select; ActiveWorkbook.Save y End Sub
funcionan a la perfección

Saludos

Entiendo que tienes 3 pestañas, de izquierda a derecha:

1) FRANQUICIA
2) CREDITO
3) MENU

Muy importante: tienen que escribirse tal y como van luego en la macro, ojo con las tíldes pues.

Ten en cuenta que el boton lo tendras que poner en la primera pestaña, es decir, en FRANQUICIA y el código será el siguiente:

Sub boton_imprimir_todo()
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Sheets("CREDITO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Sheets("MENU").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Sheets("FRANQUICIA").Select
Range("A1").Activate
End Sub

No te olvides de añadirle las funciones de guardado y cerrado que ya te había comentado ANTES del "End Sub".

Esta macro lo que hará es:

Estamos situados en la pestaña FRANQUICIA y le damos al botón.
Imprime 4 copias y se va a la pestaña CREDITO. Imprime otras 4 copias y se va a la pestaña FRANQUICIA. Imprime las últimas 4 copias y vuelve a la pestaña franquicia situándose en A1

Ya me contarás qué tal te funciona, vale?

Un saludo.

OK

Patrick mil gracias funcionó de maravilla..... no habia tenido en cuenta las tildes por lo que no me funcionaba....