-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange StarwingT
--
Starwing
oUPS!
http://www.excelabo.net/xl/imprimer.php#filigrane
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange StarwingT
-- "Starwing" a écrit dans le message de news:
Bonjour,
http://www.excelabo.net/xl/imprimer.htm#filigrane
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange StarwingT
--
oUPS!
http://www.excelabo.net/xl/imprimer.php#filigrane
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT
brault-lavoieNOSPAM@sympatico.ca
--
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de
news:uDr7xsv0EHA.3292@TK2MSFTNGP10.phx.gbl...
Bonjour,
http://www.excelabo.net/xl/imprimer.htm#filigrane
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
StarwingT
brault-lavoieNOSPAM@sympatico.ca
--
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange StarwingT
-- "Starwing" a écrit dans le message de news:
Bonjour,
http://www.excelabo.net/xl/imprimer.htm#filigrane
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange StarwingT
--
denis P
Bonjour Richard,
Je ne suis pas sur mais pour imprimer une feuille avec son image en filigrane tu es obliger de passer par une macro.
Pour Imprimer la zone d'impression (ZI) de la feuille active (définie par menu Fichier -> Zone d'impression -> définir) le code qui suit copie la ZI comme image, la colle comme objet sur la ZI, imprime et efface cet objet image
denis p.
================================= Sub Imprime_Filigrane() ActiveCell.Activate 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 =======================================
"Richard Van Heghe" a écrit dans le message de news:
Bonjour à tous,
Je cherche à imprimer une image en filigrane dans ma feuille de calcul. Mes recherches sur le net sont infructueuses.
D'avance merci à ceux qui prendront le temps de me répondre...
Bonjour Richard,
Je ne suis pas sur mais pour imprimer une feuille avec son image en
filigrane tu es obliger de passer par une macro.
Pour Imprimer la zone d'impression (ZI) de la feuille active (définie par
menu Fichier -> Zone d'impression -> définir) le code qui suit copie la ZI
comme image, la colle comme objet sur la ZI, imprime et efface cet objet
image
denis p.
================================= Sub Imprime_Filigrane()
ActiveCell.Activate
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
=======================================
"Richard Van Heghe" <richard.vanheghe@afpa-boulazac.fr> a écrit dans le
message de news:uY5fofv0EHA.3092@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
Je cherche à imprimer une image en filigrane dans ma feuille de calcul.
Mes recherches sur le net sont infructueuses.
D'avance merci à ceux qui prendront le temps de me répondre...
Je ne suis pas sur mais pour imprimer une feuille avec son image en filigrane tu es obliger de passer par une macro.
Pour Imprimer la zone d'impression (ZI) de la feuille active (définie par menu Fichier -> Zone d'impression -> définir) le code qui suit copie la ZI comme image, la colle comme objet sur la ZI, imprime et efface cet objet image
denis p.
================================= Sub Imprime_Filigrane() ActiveCell.Activate 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 =======================================
"Richard Van Heghe" a écrit dans le message de news:
Bonjour à tous,
Je cherche à imprimer une image en filigrane dans ma feuille de calcul. Mes recherches sur le net sont infructueuses.
D'avance merci à ceux qui prendront le temps de me répondre...