Private Const VK_SNAPSHOT = &H2C
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub PrtScn()
keybd_event VK_SNAPSHOT, 1, 0&, 0&
DoEvents
SavePicture Clipboard.GetData, "C:\Ruta\Archivo.bmp"
End Sub