Como minimizar un userform para mostrar la hoja en vista previa?
Tengo una pequeña aplicación que contiene 2 formularios, userform1 y userform2, al iniciar carga el userform1, en este tango un commandbotton1 que al oprimirlo me muestra el userform2, dentro del userform2 tengo commandboton2 llamado "VistaPrevia" para mostrar la hoja actual en vista previa, pero tengo un pequeño problema cuando oprimo el botón vistaprevia me esta mostrando el userform1 y la hoja la pone detrás del userform1 y de una vez me bloquea la aplicación que no me deja continuar. ¿Cómo hacer para que al momento de oprimir el commandboton2 vistaprevia me minimice el userfomr1 y pueda ver los resultado de la hoja actual?.
1 respuesta
Debes 'ocultar' los 2 UF y luego volver a mostrarlos.
Este es el orden de las instrucciones:
Private Sub CommandButton1_Click() 'botón de Vista previa del UF2
'x Elsamatilde
'oculta el UF activo y luego el primero
Me.Hide
UserForm1.Hide
ActiveSheet.PrintPreview
'vuelve a mostrar los UF
UserForm2.Show
UserForm1.Show
End Sub
