Crear una macro para que imprima un Excel

He seguido unas indicaciones que pusiste en un post contestando a otro chico pero de todas, me dice que hay un error de compilación procedimiento externo no válido. ¿Podrías asesorarme por favor?

Gracias. Te adjunto la macro:

'sub imprimirpropuesta()
'Private Sub CommandButton1_Click()

'Despues solo deberas teclear los siguientes comandos
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("[PROPUESTA]").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Donde [hoja de Grafico] es el nombre de la hoja en que se encuentra el gráfico que mencionas.

End Sub

Me marca el error en el numero de copies

2 Respuestas

Respuesta
1

Funciona todo perfectamente, así que pienso que el problema es porque no has quitado las comillas a "Private Sub CommandButton1_Click()

Mira lo que he hecho yo:

1.- He creado un botón para imprimir.
2.- Le he dado doble click al botón y en el código, he puesto el siguiente código (El tuyo)

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("[hoja1]").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Donde [hoja1] es el nombre de la hoja en que se encuentra el gráfico que mencionas.
End Sub

Y sin hacer nada más, ha funcionado perfectamente.-

Ten en cuenta, que para que funcione bien, debes activar y desactivar el "Modo Diseño" en la ficha "Programador".

Respuesta
1

Esto te puede aportar algo más

https://youtu.be/7IjwYh8nDNU

https://youtu.be/x8vd4OHGkNM

https://youtu.be/I0hjW1RqbFk

https://youtu.be/omRbbO5HuZg

https://youtu.be/AtUNgKpVJtM

Visita http://programarexcel.com descarga cientos de ejemplos de macros,

suscribe https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ y recibe actualizaciones en tu mail sobre ejemplos nuevos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas