Quiero saber como cancelar impresión
Tengo una caja de texto para que cuando se intente imprimir, pida una contraseña, si se teclea correctamente continua la impresión, de lo contrario se cancela la impresión. Pero esto no me funciona cuando se teclea la contraseña incorrecta y al cerrar la ventana con la POR manda imprimir.
Me pueden ayudar.
Private Sub botonAceptar_Click()
Dim valor As String
valor = Me.Textpas.Value
If valor = "fraga68" Then
Unload Me
Else
MsgBox " contraseña incorrecta", vbExclamation, "Impresion"
'Cancel = True
Application.PrintCommunication = False
End If
End Sub
2 Respuestas
Creo entender que desde una macro llamas a un formulario para el ingreso de una contraseña, y a continuación se envía la impresión.
Imagino algo como esto. Donde se consulta el valor de una variable pública.
Public impre As Byte 'se declara variable utilizada en el UF Sub llamaUF() impre = 0 UserForm1.Show If impre = 1 Then impre = 0 ActiveSheet.PrintOut End If End Sub
Y en el formulario quedaría así:
Private Sub botonAceptar_Click() Dim valor As String valor = Textpas.Value If valor = "fraga68" Then impre = 1 'se marca la variable Unload Me Else MsgBox " contraseña incorrecta", vbExclamation, "Impresion" End If End Sub
Probalo y comentame. No olvides valorar la respuesta si el tema queda resuelto.
Este ejemplo es un formulario que solicita password, fíjate que solicita password
Y muestras filas por un par de segundos y se vuelven a ocultar.
Para terminar u salir de la macro usa
exit sub
Mira este ejemplo
Visita https://programarexcel.com