I've made some progress, the following code will take a screenshot when executed in a Extra! Basic macro.  Unfortunately its not the most responsive, so if I jump to another app too soon it screenshots the wrong item.  Any recommendations on improving this or a more efficient way to accomplish a screenshot using Extra! Basic? 

With CreateObject("Word.Basic")
         .AppActivate "MyApp"
         .SendKeys "%{prtsc}"
         .SendKeys "{NUMLOCK}"
End With

Hi Dave, 

I don't have a <scroll lock> so I don't know if the following macro will toggle it. But if it does we can always figure that out.

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

Const KEYEVENTF_KEYUP = &H2
Const VK_SNAPSHOT = &H2C
Const VK_MENU = &H12

Sub Main
    Dim myShell as Object
    Dim myTitleBarText as String
    myTitlebarText =  "Untitled - Notepad"
    Set myShell = CreateObject("WScript.Shell")
    myShell.appactivate myTitlebarText

    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

Question what are you doing with the screenshot after you put it in the clipboard?

Tom

Hi Tom,

    I’m just getting off my rest days and will be working night shift Friday.   When I have some down time at work I’ll, give this code a try and play around with it.  I’ll let you know how it works for me.  As for the screen shots, they post them to typical things like word and outlook.   Personally I’d rather send as text but management wants screen shots.  

thanks,

David

Tom,

   That was perfect, took a screen shoot with zero lag time.

Thank you,

David