filigrane

A

andré

Guest
Salut à tous,

Je souhaite imprimer certains documents Excel avec un texte en filigrane au travers de toute la page, de sorte que ce document ne puisse être photocopié et transmis à de tierces personnes (notamment mes offres de prix qui pourraient être transmises à la concurrence).
Actuellement j'imprime sur des feuilles avec un filigrane préimprimé.

Il y a-t-il moyen de faire cela sous forme d'option au moment de l'impression?

André.
 
Q

Quaisako

Guest
Bonjour André,

J'ai eu ce souci, et voila ce que j'utilise.


'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

Amitiés

Quaisako
 
H

Henri

Guest
Resalut


Je sais qu'avec mon imprimante epson, j'ai un utilitaire qui permettait de mettre un filigramme en fond, dans le style copie, confidentiel, ne pas diffuser , etc...


Mais depuis que je suis sous xp pro, je n'ai plus cette fonction, pas contre cela fonctionne sous 95,98, millenium.

Je pense que sur le net, tu dois pouvoir trouver un utilitaire pour filigramme


Si j'en trouve, je te contacte


salut

Henri