Print screen

[maddy38]

Is it possible to create a macro that will automate Print screen. I have been creating macros for some time but have never been asked to do this before.

 

[Andrew Poulsom]

Welcome!

I suppose you could use:

SendKeys "{PRTSC}"

Then what do you want to do?

 

[maddy38]

I want to save the screen to a file prob jpg or bmp.

 

[Andrew Poulsom]

Oh dear! I have just read in Help that Sendkeys can't send the PRINT SCREEN key {PRTSC} to any application. And sure enough I could not get it to work.

So it looks like you're out of luck.

 

[XL-Dennis]

ADVERTISEMENT

maddy38,

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

Sub test2()
'Printscreen whole window
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
End Sub</pre>

Edit:
Here´s a link to Chip Pearson site for working with the ClipBoard:
http://www.cpearson.com/excel/clipboar.htm

Funny, i VB is very simpel to save pictures from the the clipboard but not in XL.


Kind regards,
Dennis
This message was edited by XL-Dennis on 2002-09-23 06:56

 

[Andrew Poulsom]

I found a link, but Denis beat me to it!

http://www.google.com/url?sa=U&start=61&q=http://pages.eidosnet.co.uk/~matthewl/source.htm&e=42

 

[Chris Davison]

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>

nice one Dennis...

I just used this to printscreen from an outside application into Excel and it works a treat

(wish I'd seen this at 9am instead of 5pm !)