OVH Cloud OVH Cloud

Impression d'un arrière plan

4 réponses
Avatar
Sunburn
Bonjour, j'ai mis une image ne arrière plan (format, feuille, arrière plan).
Pas de pb sur mon écran, mais à l'impression, ya rien! Comment faire pour
l'imprimer? Merci.
Yann

4 réponses

Avatar
FxM
Bonjour, j'ai mis une image ne arrière plan (format, feuille, arrière plan).
Pas de pb sur mon écran, mais à l'impression, ya rien! Comment faire pour
l'imprimer? Merci.
Yann



Bonjour Yann,

La réponse est sur : http://excelabo.net/xl/imprimer.php

@+
FxM

Avatar
jps
bonjour yann
si cela peut t'aider :

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

Postée par Denny Campbell le 99-03-04 sur le forum de

Microsoft.public.excel.programming

HTH

jps



"Sunburn" a écrit dans le message de
news:
Bonjour, j'ai mis une image ne arrière plan (format, feuille, arrière
plan).
Pas de pb sur mon écran, mais à l'impression, ya rien! Comment faire pour
l'imprimer? Merci.
Yann


Avatar
Sunburn
Salut,
merci à vous deux, mais ce sont des solutions VBA.
Peut-on faire un emanip, sans passer par une programation VBA pour imprimer
ce tableau avec son fond d'écran, même si cette manip doit etre lourde, et à
faire à chaque fois?
Merci.
YAnn


bonjour yann
si cela peut t'aider :

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

Postée par Denny Campbell le 99-03-04 sur le forum de

Microsoft.public.excel.programming

HTH

jps



"Sunburn" a écrit dans le message de
news:
Bonjour, j'ai mis une image ne arrière plan (format, feuille, arrière
plan).
Pas de pb sur mon écran, mais à l'impression, ya rien! Comment faire pour
l'imprimer? Merci.
Yann






Avatar
jps
espontanément, je dirais que ce n'est pas possible en dehors de VBA, sinon
tu penses bien, yann, que des cracks de la pointure de ce Campbell (un bon
copain à moi : on est dans le même clan) ne se serait pas pourri la vie à
pondre cette proc
jps

"Sunburn" a écrit dans le message de
news:
Salut,
merci à vous deux, mais ce sont des solutions VBA.
Peut-on faire un emanip, sans passer par une programation VBA pour
imprimer
ce tableau avec son fond d'écran, même si cette manip doit etre lourde, et
à
faire à chaque fois?
Merci.
YAnn


bonjour yann
si cela peut t'aider :

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

Postée par Denny Campbell le 99-03-04 sur le forum de

Microsoft.public.excel.programming

HTH

jps



"Sunburn" a écrit dans le message de
news:
Bonjour, j'ai mis une image ne arrière plan (format, feuille, arrière
plan).
Pas de pb sur mon écran, mais à l'impression, ya rien! Comment faire
pour
l'imprimer? Merci.
Yann