IMP FILIGRAMME

[DENIS]

bonjour, tout le monde
est ce possible d imprimer le filigramme qui nous indique page1 page2 .... qui est en gris clair a l affichage

merci

 

[Bricofire]

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

 

[Ti_]

Pour autant que tu veuilles juste du texte et non pas une image pour ton filigrane, tu peux charger mon programme Filigrane.xls sur Vériti, il te permettra de faire ça simplement.
Tu le trouveras dans la zone téléchargement Label Ti

Ce lien n'existe plus

 

[emp06bis]

Bonjour,
Je souhaiterais tester ce code.
Mais étant novice, je ve vois pas comment démarrer, puis je svp avoir une petite explication