Bonjour Joel,
En utilisant ta macro, mon image ne s'imprime pas !
Elle apparait bien sur l'aperçu mais pas à l'impression donc ça fonctionne pour
moi.
Sinon pour ne pas l'avoir dans l'aperçu je pense qu'il faut suivre les pistes
de Bernard.
Salutations
Gwen
> Message du 07/03/08 08:17
> De : "Joel Bernard"
> A : prog@fr.openoffice.org
> Copie à :
> Objet : [prog] Image non imprimable
>
> 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
>
>
Créez votre adresse électronique [EMAIL PROTECTED]
1 Go d'espace de stockage, anti-spam et anti-virus intégrés.
