Jump to content

Recommended Posts

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.

 

 

AYU.png

Link to post
Share on other sites
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

Link to post
Share on other sites

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.

 

 

Link to post
Share on other sites
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 ?

Link to post
Share on other sites
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í

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • hola a todos. Vengo siguiendo desde hace tiempo este foro de forma puntual, pero creo que ya es hora de integrarse en este grupo. Llevo bastante tiempo ya mejorando mis conocimientos en Excel y pretendo seguir progresando. Ultimamente estoy avanzando en Power Query, Power Pivot y DAX. Creo que es un capítulo muy interesante. Espero aportar y colaborar con todos. Gracias por vuestro apoyo, por vuestro feedback y feliz semana.
    • hola a todos. Tengo un pequeño problema con una tabla dinámica. He creado una MEDIDA con DAX (ver hoja "iva con MEDIDA") que he utilizado en la tabla dinámica para que no me devuelva el Total general de la columna (celda D39) y esto lo hace correctamente con la medida que he insertado.Pero en la tabla dinámica no me devuelve el dato que busco obtener que se refiere a la columna D (llamada Tipo Cuota IVA).En la columna D (llamada Tipo cuota IVA) me devuelve siempre el tipo 100% ... pero sin embargo, en la tabla origen de datos "Pagos 2021" tengo varios tipos de cuota de IVA (21%, 10%, 4% y exento). Lo que pretendo es que me devuelva en la tabla dinámica el porcentaje correcto (21%, 10% o 4%) o bien 0% en caso de que se trate de "tipo exento".  Otra apreciación es que si existiese una forma capaz de devolver correctamente el tipo de IVA por cada proveedor, es que si por ejemplo supongamos que hay un proveedor que emitió 3 facturas con el tipo de IVA al 21% ... pues que devuelva una sola fila de ese proveedor pero QUE NO SUME 21% + 21% + 21% (3 veces) ... es decir, que sólo devuelva un tipo único de IVA al 21%. ¿alguien que me pueda ayudar? ... gracias td Compras y Gastos_medida.xlsx
    • buenos dias, Tengo una fórmula en Excel creada para que introduciendo un número en la celda A1, automáticamente me convierta ese número a LETRA (en texto) en la celda A2.Mi pregunta es ... ¿cómo se puede lograr que haga lo mismo pero, por ejemplo, en PORTUGUÉS y sin tener que modificar las preferencias del idioma desde Opciones de Excel? ... gracias por vuestros comentarios. convertir un Número a LETRA esp.xlsx
    • Hola a todos. Quería pediros ayuda con esta formula. Envío un archivo adjunto con dos hojas. En una hay un cuadrante de turnos y en la otra una lista de personas. Como es una prueba solo he puesto una persona inventada.  Lo que necesito es que en el listado de personas busque el ID de la persona en el cuadrante y si la fecha está marcada con una "X" o cualquier dato vaya al listado y en "Horas Teóricas" ponga "5". Si la fecha en el cuadrante está en blanco que ponga "0" horas. La fórmula hay que ponerla en la columna "C" de Listado. Creo que debo hacerlo con las funciones COINCIDIR y INDICE pero no me aclaro.  ¿podéis ayudarme? Gracias de antemano.       Prueba turnos.xlsx
    • Hola fíjate esto, recupere el cdata con esta ruta y despues lei ese xml y saque un dato que es una fecha, vos sabrás como sacar lo que necesitas puntualmente. Sub My_Example_Test()     Dim Dom As MSXML2.DOMDocument60     Set Dom = New MSXML2.DOMDocument60     Dom.Load "C:\Users\Windows\Downloads\ad08301097230342100195863.xml"     MsgBox Dom.ChildNodes.Item(1).ChildNodes(11).ChildNodes.Item(0).ChildNodes.Item(2).ChildNodes.Item(0).Text     Dom.LoadXML Dom.ChildNodes.Item(1).ChildNodes(11).ChildNodes.Item(0).ChildNodes.Item(2).ChildNodes.Item(0).Text     MsgBox Dom.ChildNodes.Item(1).ChildNodes.Item(7).ChildNodes.Item(0).Text End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy