Pour l'imprim écran:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'****************************************************************************
Public Sub ImprimEcran()
Const touche = &H2C 'correspond à la touche imprim ecran
Const ecran = 0 'Défini la zone à imprimer
' 1-Nettoie le buffer du presse papier
Clipboard.Clear
' 2-Simule l'appui sur la toucheImprim Ecran
Call keybd_event(touche, ecran, 0&, 0&)
' 3-Attends que Windows rafraichisse le Presse papier
DoEvents
End Sub