Dans mon cas je peux insérer la mention (filigrane) "Document de travail" dans les options avancées d'impression dans la mise en page d'Excel.
Il va sans dire que cela dépend de l'imprimante. Bonne chance,
Starwing
-----Message d'origine----- Bonjour
Je cherche a inserer un filigrane sur excel xp Comment faire
Merci
.
Christian M
Bonjour, Voici du code trouver sur le site de Frédéric Sigonneau Attribute VB_Name = "ImpressionFiligrane" '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
-- Christian M ------------------------------- "Starwing" a écrit dans le message de news: 121a01c3b369$0013c720$ Bonjour,
Dans mon cas je peux insérer la mention (filigrane) "Document de travail" dans les options avancées d'impression dans la mise en page d'Excel.
Il va sans dire que cela dépend de l'imprimante. Bonne chance,
Starwing
-----Message d'origine----- Bonjour
Je cherche a inserer un filigrane sur excel xp Comment faire
Merci
.
Bonjour,
Voici du code trouver sur le site de Frédéric Sigonneau
Attribute VB_Name = "ImpressionFiligrane"
'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
--
Christian M
-------------------------------
"Starwing" <ubik10@hotmail.com> a écrit dans le message de news:
121a01c3b369$0013c720$a301280a@phx.gbl...
Bonjour,
Dans mon cas je peux insérer la mention
(filigrane) "Document de travail" dans les options
avancées d'impression dans la mise en page d'Excel.
Il va sans dire que cela dépend de l'imprimante.
Bonne chance,
Starwing
-----Message d'origine-----
Bonjour
Je cherche a inserer un filigrane sur excel xp
Comment faire
Bonjour, Voici du code trouver sur le site de Frédéric Sigonneau Attribute VB_Name = "ImpressionFiligrane" '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
-- Christian M ------------------------------- "Starwing" a écrit dans le message de news: 121a01c3b369$0013c720$ Bonjour,
Dans mon cas je peux insérer la mention (filigrane) "Document de travail" dans les options avancées d'impression dans la mise en page d'Excel.
Il va sans dire que cela dépend de l'imprimante. Bonne chance,
Starwing
-----Message d'origine----- Bonjour
Je cherche a inserer un filigrane sur excel xp Comment faire
