Excel - Como Imprimir pantalla con macros de Excel.

Hola a todos, felicitaciones por esta excelente página Web de programación, que tanto ayuda. Necesito imprimir la pantalla del escritorio y pegarla en una hoja de calculo de Excel, todo esto a través de una Macro, para que el proceso sea automático. Alguien sabe como grabar esta función(Alt+ Impr Pant + Paste), pues en los módulos de código solo me aparece la función pegar (Range("C5"). Select ActiveSheet.Paste). De ante mano Gracias.

Usando API`s:

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

Sub Pegar_pantalla()
keybd_event 44, 1, 0&, 0&
[a1].Select
ActiveSheet.Paste
End Sub

Abraham

como imprimir pantalla de Excel

En la siguiente estructura en el código keybd_event 44, 1, 0&, 0&

cambiar el 1 por un 2

Me aparece un error... Los comentarios solo pueden ir despues de End Sub.. me ayudas a solucionarlo??