Excel - atajo de teclado en un boton

 
Vista:

atajo de teclado en un boton

Publicado por er3b0o (2 intervenciones) el 03/02/2012 13:20:28
Hola a todos, la verdad es que hace poco tiempo estoy en esto de vba en excel
y en cada ocacion me van surgiendo nuevas interrogantes, en este caso es algo que supongo
deberia ser facil, se trata de asignar un atajo de teclado a un boton, es decir, si apreto el boton imprimir se ejecute la convinacion de teclado "control + p" ya que de esta forma me mandaria directo a la ventana de impresion y no tendria que imprimir en una impresora por defecto ya que esto aveces es un problema cuando se tiene mas de una.
Gracias por todo y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

atajo de teclado en un boton

Publicado por JuanC (1237 intervenciones) el 04/02/2012 21:06:29
un método simple para simular la presión de las teclas Ctrl+P...

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Sub apikeybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Sub test()
Call apikeybd_event(VBA.vbKeyControl, 0, 0, 0)
Call apikeybd_event(VBA.vbKeyP, 0, 0, 0)
Call apikeybd_event(VBA.vbKeyP, 0, KEYEVENTF_KEYUP, 0)
Call apikeybd_event(VBA.vbKeyControl, 0, KEYEVENTF_KEYUP, 0)
End Sub


Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar