ADVERTISEMENT
XL-Dennis said:Following will do the trick and place the picture in the clipboard:
<pre>
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)
Const VK_SNAPSHOT As Byte = 44
Sub test1()
'Printscreen active window
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
End Sub
</pre>