Podemos simular la pulsación de "Impr.Pant" (copiar la pantalla en el portapapeles) o de "Ctrl"+"Impr.Pant" (copiar la ventana activa al portapapeles) mediante la función del API keybd_event, que simula pulsaciones de teclas.

Declaramos la función :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Para capturar toda la pantalla : keybd_event vbKeySnapshot, 1, 0&, 0&
Para capturar la ventana activa : keybd_event vbKeySnapshot, 0, 0&, 0&