Bonjour à tous,
Mon collègue et moi séchons sur un problème d'impression.
Dans un formulaire nous avons créé une macro avec quelques morceaux de
code que nous avons récupérés (J'en profiterais pour remercier
l'ensemble des personnes qui animent ce forum).
Nous souhaiterions que l'image insérée ne soit pas imprimable.
Lorsque nous nous servons de Xray "exemple Ligne 22 : xray monImage "
il nous indique bien la propriété printable en booléen.
Nous nous resservons de la variable que nous avons créé *monImage *en
lui indiquant ligne 23 qu'elle ne soit pas imprimable, malgré cela
l'image du formulaire est bien existante à l'impression .
Est-ce que quelqu'un peut nous aider sur notre incompréhension?
En vous remerciant par avance de l'intérêt que vous aurez porté sur le
contenu. Je vous souhaite une bonne soirée ;-)
1. dim monDocument as Object, maPage as Object
2. Dim monImage as Object, ImageL as Object
3. Dim oTexte as Object
4. Dim oCurseur as Object
5. Dim positionImage as new com.sun.star.awt.Point
6. oTexte = doc.text
7. oCurseur = oTexte.createTextCursor
8. oCurseur.gotoNextParagraph(false)
9. maPage = doc.DrawPage
10. ImageL = doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
11. ImageL.GraphicURL= ConvertToURL( "S:\Photos avec Nom\" & sdir )
12. maPage.add(ImageL)
13. positionImage.x = 15400
14. positionImage.y = 3100
15. monImage =
doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
16. monImage.graphicObjectFillBitmap = ImageL.GraphicObjectFillBitmap
17. monImage.Anchortype =
com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
18. maPage.add(monImage)
19. maPage.remove(ImageL)
20. resizeImageByWidth(monImage, 2700)
21. monImage.setposition(positionImage)
22. xray monImage
23. monImage.Printable = false
