Optimizar Ctrl + P. Objeto Application - Método OnKey

Para finalizar con los ejemplos del uso del Método OnKey del Objeto Application, vamos a optimizar una de las combinación de teclas más usadas, se trata de Ctrl + P con las cuales se abre la ventana de impresión para configurar las opciones requeridas del caso. Vamos a optimizar un poco más esta combinación para que al momento de querer imprimir, siempre se haga al mismo rango de celdas; esto es especialmente útil para el caso en que estemos trabajando con una plantilla donde el rango en que se encuentra la información es el mismo.

Método OnKey: Permite manipular el teclado de nuestro computador desde el editor de VBA.

Desde Excel abrimos el Editor VBA (Alt + F11), insertamos un Módulo (Clic derecho sobre el proyecto Excel, Insertar, Módulo:

Ingresamos el siguiente código:

Sub OptimizarCtrlP()

Application.OnKey "^{p}", "ImprimirRangoA1B10"

End Sub

Sub ImprimirRangoA1B10()

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10"

ActiveSheet.PrintOut

End Sub

Queda de la siguiente manera en el Módulo:

Se trata de dos macros, la primera:

  1. La primera línea Sub OptimizarCtrlP(), indica el inicio de la macro.
  2. En la segunda línea estamos utilizando del Objeto Application el método OnKey el cual se utiliza para activar y modificar cualquier tecla; en este caso estamos modificando la combinación de teclas Ctrl+P , específicamente para que al momento de combinar ambas teclas, se ejecute la Macro ImprimirRangoA1B10; para lograrlo indicamos entre comillas la letra P anteponiendo el signo de Potencia (^); este signo Potencia (^) es la representación en código VBA de la tecla Ctrl.
  3. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Para la Macro 2:

  1. La primera línea Sub ImprimirRangoA1B10 (), indica el inicio de la macro.
  2. En la segunda línea estamos estableciendo el área de la impresión que en este caso es desde A1 hasta B10
  3. La tercera línea es la instrucción de impresión, como si diéramos clic en Imprimir en la ventana de opciones de impresión.
  4. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

Una opinión
  1. ALEX dice:

    UNA CONSULTA SI QUERO QUE EJECUTE SOLO CTRL + P

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.