How to take a screenshot

[dmr]

Is there a way to take a screenshot with vba? (Ideally of just the active form). I want to send it as an email attachment.

 

[vbaInet]

Look into the SendObject function.

 

[ghudson]

I have been curious about your quest so I have been searching around but cannot find a VBA method to create a file from an image stored in the clipboard. Please post back if you are successfull.

This was the simplest I found to get the active window into the clipboard....

[URL="http://word.mvps.org/FAQS/MacrosVBA/PrtSc.htm"]http://word.mvps.org/FAQS/MacrosVBA/PrtSc.htm[/URL]
'To capture the screen

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

 

[c_smithwick]

First use SendKeys {PRTSC} to get a copy of the screen into the clipboard, then read the post here to get the bitmap data from the clipboard into a file:

http://groups.google.ca/group/microsoft.public.access.modulesdaovba/browse_thread/thread/674742b64c6e7d01/3e95e8f696986245?lnk=st&q=getclipboarddata(cf_bitmap)+visual+basic&rnum=2#3e95e8f696986245http://groups.google.ca/group/microsoft.public.access.modulesdaovba/browse_thread/thread/674742b64c6e7d01/3e95e8f696986245?lnk=st&q=getclipboarddata(cf_bitmap)+visual+basic&rnum=2#3e95e8f696986245

 

[ghudson]

Can you explain why you are using a Big Brother tactic to capture a screen shot of what your user's are doing? I found a working VBA solution but I wanted to inquire before posting it.