excel 2002

Bonjour Rico,

Provenant d'Excelabo :


'----------------------------------------------
Sub ImpFiligrane()

'La Zone d'impression DOIT être préalablement définie
Dim ZoneImpr As Range

Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr

ActiveWindow.SelectedSheets.PrintPreview

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete

End Sub

Denny Campbell
'----------------------------------------------


Salutations!



"rico" <rico@discussions.microsoft.com> a écrit dans le message de news: E5A5D2EC-D7CC-4E19-BD46-09EF875BD8B9@microsoft.com...
comment imprimer l'arrière plan dans une feuille de calcul dans excel 2002