Screen capturing using VBA

To capture the screen

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _

  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()

    keybd_event VK_SNAPSHOT, 1, 0, 0

End Sub

 

To capture the active window

 

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _

  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2

Private Const VK_SNAPSHOT = &H2C

Private Const VK_MENU = &H12

Sub AltPrintScreen()

    keybd_event VK_MENU, 0, 0, 0

    keybd_event VK_SNAPSHOT, 0, 0, 0

    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0

    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0

End Sub