Private Sub Print_Screen()
'- API print screen
keybd_event VK_MENU, 0, 0, 0 ' Alt key down
DoEvents
keybd_event VK_SNAPSHOT, 0, 0, 0 ' PrintScreen key down
DoEvents
keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
DoEvents
keybd_event VK_MENU, 0, VK_KEYUP, 0
DoEvents
'---------------------------------------------------------------
'- paste picture to worksheet
On Error Resume Next
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
DoEvents
Application.Wait Now + TimeValue("00:00:01") ' WAIT 1 SECOND
End Sub