Problemas con la Cinta Ribbon de excel

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.