The keys on a keyboard are assigned with 'KeyCode'. Is there a KeyCode for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

The KeyCode constant is vbKeyPrint for the Print Screen key.

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a KeyCode for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

Hi,
If you want to capture the screen, maybe more simple if use
API calls :
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)

Private Const VK_SNAPSHOT = &H2C

Sub PRTSCR()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Rgds,

Halim

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a KeyCode for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

I'm guessing this is connected to the OP's previous request to prevent
PrtScr rather than call it.

NickHK

"Halim" wrote in message
...
Hi,
If you want to capture the screen, maybe more simple if use
API calls :
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)

Private Const VK_SNAPSHOT = &H2C

Sub PRTSCR()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Rgds,

Halim

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a KeyCode
for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such
KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

Thanks a lot guys for all your help.

Just for your information, I have managed to circumvent the 'PrtScr' issue
by using a timer and clear clipboard procedures.

"NickHK" wrote:

I'm guessing this is connected to the OP's previous request to prevent
PrtScr rather than call it.

NickHK

"Halim" wrote in message
...
Hi,
If you want to capture the screen, maybe more simple if use
API calls :
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)

Private Const VK_SNAPSHOT = &H2C

Sub PRTSCR()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Rgds,

Halim

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a KeyCode
for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such
KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

Can you post the code.

NickHK

"Francis Ang" wrote in message
...
Thanks a lot guys for all your help.

Just for your information, I have managed to circumvent the 'PrtScr' issue
by using a timer and clear clipboard procedures.

"NickHK" wrote:

I'm guessing this is connected to the OP's previous request to prevent
PrtScr rather than call it.

NickHK

"Halim" wrote in message
...
Hi,
If you want to capture the screen, maybe more simple if use
API calls :
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)

Private Const VK_SNAPSHOT = &H2C

Sub PRTSCR()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Rgds,

Halim

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a
KeyCode
for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such
KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.

Here is the code ...

Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Public RunWhen As Double
Public Const cProc = "ClrSub"

Sub ClearClipboard()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub

Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime earliesttime:=RunWhen, procedu=cProc, _
schedule:=True

End Sub


Sub ClrSub()

ClearClipboard
StartTimer

End Sub


"NickHK" wrote:

Can you post the code.

NickHK

"Francis Ang" wrote in message
...
Thanks a lot guys for all your help.

Just for your information, I have managed to circumvent the 'PrtScr' issue
by using a timer and clear clipboard procedures.

"NickHK" wrote:

I'm guessing this is connected to the OP's previous request to prevent
PrtScr rather than call it.

NickHK

"Halim" wrote in message
...
Hi,
If you want to capture the screen, maybe more simple if use
API calls :
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)

Private Const VK_SNAPSHOT = &H2C

Sub PRTSCR()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Rgds,

Halim

"Francis Ang" wrote:

The keys on a keyboard are assigned with 'KeyCode'. Is there a
KeyCode
for
'PrtScr'? I cannot seem to find this KeyCode. If there is no such
KeyCode,
can VBA codes detect when the 'PrtScr' key is pressed?

Thanks.