Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)
Sub CopieEcran() 'Copie d'ecran equivalent Alt+PrintScreen
Application.SendKeys "(%{1068})"
DoEvents
Sheets(1).Activate: Range("A1").Select: ActiveSheet.Paste
End Sub
Public Sub SaveScreen()
Dim WS As Worksheet
'Copie d'écran de la forme active par simulation de la touche
keybd_event vbKeySnapshot, 1, 0&, 0&: DoEvents '!
'Ajoute une feuille pour coller l'image
Set WS = Sheets.Add: WS.Paste
'impression de la feuille avec image
With WS.PageSetup
.Zoom = False 'si true FitToPagesTall invalide
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = True
.FitToPagesTall = 1 'impose sur la hauteur de la page
.FitToPagesWide = 1 'impose sur la largeur de la page
End With
WS.Application.Dialogs(xlDialogPrint).Show
End Sub