je souhaite sur une feuille d'un classeur en comprenant 5, imprimer un fond de page en couleur (filigrane).
J'ai fait une macro (enregistrer) mais cela ne prend pas en compte ; le filigrane est une option de mon imprimante
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Nicolas,
voici une réponse données par Denny Campbell, le 99-03-04 sur le forum microsoft.public.excel.programming en espérent que tu puisse l'adapter.
'la zone d'impression doit être préalablement définie
Sub ImprimeFiligrane() Dim ZoneImp As Range Set ZoneImp = Range(ActiveSheet.PageSetup.PrintArea) ZoneImp.CopyPicture xlScreen, xlBitmap ActiveSheet.Paste Destination:=ZoneImp ActiveWindow.SelectedSheets.PrintPreview End Sub
isabelle
Bonjour,
je souhaite sur une feuille d'un classeur en comprenant 5, imprimer un fond de page en couleur (filigrane). J'ai fait une macro (enregistrer) mais cela ne prend pas en compte ; le filigrane est une option de mon imprimante
comment faire ?
d'avance merci
bonjour Nicolas,
voici une réponse données par Denny Campbell, le 99-03-04
sur le forum microsoft.public.excel.programming
en espérent que tu puisse l'adapter.
'la zone d'impression doit être préalablement définie
Sub ImprimeFiligrane()
Dim ZoneImp As Range
Set ZoneImp = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImp.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImp
ActiveWindow.SelectedSheets.PrintPreview
End Sub
isabelle
Bonjour,
je souhaite sur une feuille d'un classeur en comprenant 5, imprimer un fond de page en couleur (filigrane).
J'ai fait une macro (enregistrer) mais cela ne prend pas en compte ; le filigrane est une option de mon imprimante
voici une réponse données par Denny Campbell, le 99-03-04 sur le forum microsoft.public.excel.programming en espérent que tu puisse l'adapter.
'la zone d'impression doit être préalablement définie
Sub ImprimeFiligrane() Dim ZoneImp As Range Set ZoneImp = Range(ActiveSheet.PageSetup.PrintArea) ZoneImp.CopyPicture xlScreen, xlBitmap ActiveSheet.Paste Destination:=ZoneImp ActiveWindow.SelectedSheets.PrintPreview End Sub
isabelle
Bonjour,
je souhaite sur une feuille d'un classeur en comprenant 5, imprimer un fond de page en couleur (filigrane). J'ai fait une macro (enregistrer) mais cela ne prend pas en compte ; le filigrane est une option de mon imprimante
