filigrane

[andré]

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é.

 

[Quaisako]

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

 

[andré]

Salut Quaisako et merci.

Pourrais-tu m'envoyer un exemple par mail, car je ne m'y connais pas beaucoup en VBA ?

André

 

[Henri]

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