Bonjour Denis,
Arf ! Attention, comme d'habitude l'informatique est pinailleuse (tiens c'est du féminin informatique...), donc ce que tu cherches, je pense est Filigrane et non gramme, si tu fais des recherches diverses, c'est important, voir aussi à Watermark.
Bon pour le reste, je ne sais pas, je peux juste te communiquer une piste non testée que j'ai dans mes archives...
Imprimer en filigrane
l'image qu'on fait apparaître via Format/Feuille/Arrière-plan n'est que pour le plaisir des yeux du travailleur de force face à son écran : elle n'est pas imprimable => FAUX, solution postée par Denny Campbell le 99-03-04 sur le forum de Microsoft.public.excel.programming
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
bonne journée,
Brico
