OVH Cloud OVH Cloud

Imprimer arrière plan

2 réponses
Avatar
Carlos Huapaya
Bonjour,

est il possible d'imprimer
l'arri=E8re plan sur une
feuille Excel 97 (win2000)

Merci de votre aide

Carlos Huapaya

2 réponses

Avatar
MichelB
Bonsoir

Appliquer cette macro

Sub ImpArrierePlan()

'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


PrintPreview pour Aperçu avant Impression, remplacer par PrintOut
Il faut définir la zone d'impession avant d'exécuter cette macro

--
Salut
Michel ---- ;o)
Enlever _nospam pour me répondre


Carlos Huapaya wrote:
Bonjour,

est il possible d'imprimer
l'arrière plan sur une
feuille Excel 97 (win2000)

Merci de votre aide

Carlos Huapaya


Avatar
Dante Huapaya
Merci beaucoup,

très aprecié

Dante Huapaya

-----Message d'origine-----
Bonsoir

Appliquer cette macro

Sub ImpArrierePlan()

'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


PrintPreview pour Aperçu avant Impression, remplacer par
PrintOut

Il faut définir la zone d'impession avant d'exécuter
cette macro


--
Salut
Michel ---- ;o)
Enlever _nospam pour me répondre


Carlos Huapaya wrote:
Bonjour,

est il possible d'imprimer
l'arrière plan sur une
feuille Excel 97 (win2000)

Merci de votre aide

Carlos Huapaya



.