Ayuda con la Cinta RIBBON

[6luishao6]

Buenas a todos tengo una duda que realiza una impresión de la hoja en la que estoy trabajando:
Dispongo de este código:
………………….................................................................................................................
Private Sub CommandButton68_Click()
If ExecuteExcel4Macro("show.toolbar(""ribbon"",1)") Then
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End If
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
End Sub
………………....................................................................................................................
--------------------------------------------------------------------------
Este código:
ExecuteExcel4Macro("show.toolbar(""ribbon"",1)")
Desoculta toda la cinta de herramientas de Excel

Este otro código:
ExecuteExcel4Macro("show.toolbar(""ribbon"",0)")
Oculta toda la cinta de herramientas de Excel
--------------------------------------------------------------------------
Entonces qué es lo que hace el código completo?, hace que desoculte RIBBON para luego pasar la vista previa de la impresión de la hoja, pero usando esa condición no existe un botón de cancelar para luego saltar al ELSE y ocultar el RIBOON.

En la opción de Excel para salir de la vista previa de impresión hay 2 opciones darle clip en la flecha (atrás) o darle con la tecla ESC.

Como puedo modificar el código para que al momento de darle en la flecha (atrás) o darle con la tecla ESC se oculte el RIBBON.

 

 

[Héctor Miguel]

Hace 2 horas, 6luishao6 dijo:

Como puedo modificar el código para que al momento de darle en la flecha (atrás) o darle con la tecla ESC se oculte el RIBBON

1) por que la imagen de word ???

2) cual es la necesidad de andar (des/re)ocultando el ribbon ?

3) cualquier código que ceda el control al usuario (como una vista previa de impresión) no modifica el estado de la aplicación (si la cinta está visible u oculta, así permanece)

prueba con solo la instrucción del ExecuteMso

[6luishao6]

Es que mi archivo esta configurado para estar oculto la cinta ribbon.

El problema es que estando oculto al momento de darle una vista previa dela impresión se bloquea mi libro, entonces tengo que intentar imprimir de nuevo y se desbloquea el libro.

Entonces el problema es eso que tengo que habilitar el ribbon para ver la vista previa y no se bloquea el libro, pero el ribbon queda habilitado (monstrar) y eso quiero que se desbabilite (oculte) al salir de la vista previa de la impresión.

 

 

[6luishao6]

Ni cuenta me di que estaba en Word pero el problema es en Excel.

[Héctor Miguel]

Hace 48 minutos , 6luishao6 dijo:

mi archivo esta configurado para estar oculto la cinta ribbon... estando oculto al momento de darle una vista previa dela impresión se bloquea mi libro

la prueba hecha es con la cinta oculta y ejecutando (solamente)...

Hace 54 minutos , Héctor Miguel dijo:

prueba con solo la instrucción del ExecuteMso

y ya sea que pulse "atrás" o "esc" o mande la impresión, al regresar a la interfaz de usuario la cinta sigue oculta

probablemente sea por otras instrucciones en otras partes de tus códigos ?

[6luishao6]

Ya los revise es por por que lo oculto el robbin, con otros codigos de vista de impresión suceden lo mismo.

[Héctor Miguel]

te parece si adjuntas (una copia RE-DU-CI-DA de) TU modelo (EN archivo "de excel") ?

solo asegura que se reproduce el comportamiento que describes

[6luishao6]

En 25/1/2021 at 1:01 , Héctor Miguel dijo:

te parece si adjuntas (una copia RE-DU-CI-DA de) TU modelo (EN archivo "de excel") ?

solo asegura que se reproduce el comportamiento que describes

Hola, Hector tiene algún correo para que te lo envié por allí