Deshabilitar imprimir si no se hace desde un botón con macro
Hola, antes que todo gracias por ayudarme.
Quería saber si era posible no dejar imprimir si no se hace desde un botón insertado a tal fin en el formulario.
Traté con el evento BeforePrint pero me cancela la impresión desde la macro también.
Gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
En el evento BeforePrint, cancelá cualquier impresión con esta instrucción:
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub
Y en la macro de tu botón, tenés que agregar una instrucción que inhabilita la ejecución de otros eventos.... así se inhabilita el del BeforePrint.
Private Sub CommandButton1_Click() 'inhabilita la macro del evento BeforePrint Application.EnableEvents = False ActiveSheet.PrintOut 'habilita nuevamente la ejecución de otras macros Application.EnableEvents = True End Sub
Sdos y no olvides finalizar la consulta.
Muchas gracias por tu pronta respuesta.
Lo resolví utilizando una variable global con valor 0 o 1, que se modifica según se hiciese click en el botón o no, pero me sirve la info para otras cosas.
Gracias!
