Excel - Detener macro cuando cerramos vista preliminar

 
Vista:
sin imagen de perfil
Val: 38
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Detener macro cuando cerramos vista preliminar

Publicado por Diego (19 intervenciones) el 21/08/2019 09:23:01
Muy buenas a tod@s.

Tengo una instrucción sencilla con ActiveSheet.PrintOut Copies:=3, Preview:=True, pero me gustaría que, en la vista preliminar, en caso de que el usuario no imprima, y cierre la vista, la macro se detenga. ¿Es posible?

Gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Dirk
Val: 455
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Detener macro cuando cerramos vista preliminar

Publicado por Dirk (166 intervenciones) el 21/08/2019 21:14:49
Hola Diego , puedes probar con
1
2
3
4
5
6
Sub prueba()
 
imprime = Application.Dialogs(xlDialogPrint).Show(, , , 3)
If Not imprime Then Exit Sub
 
End Sub

Esto te lleva a la ventana para imprimir donde tienes el botón Vista Preliminar y te carga automáticamente en esa ventana las copias que necesites, que en el ejemplo de arriba es 3; también te devuelve un Boolean, con el que puedes controlar salir del procedimiento o hacer algo mas...

Los argumentos del .Show que conseguí son:
Arg1 range_num
Arg2 from
Arg3 to
Arg4 copies
Arg5 draft
Arg6 preview
Arg7 print_what
Arg8 color
Arg9 feed
Arg10 quality
Arg11 y_resolution
Arg12 selection
Arg13 printer_text
Arg14 print_to_file
Arg15 collate

Aunque el ayudante dice que tiene 30 argumentos

Salu2
Dirk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar