 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
2 messages in org.openoffice.fr.progRe:[prog] Image non imprimable| From | Sent On | Attachments |
|---|---|---|
| Bernard Marcelly | Mar 7, 2008 2:34 am | |
| gwen...@laposte.net | Mar 7, 2008 2:51 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re:[prog] Image non imprimable | Actions... |
|---|---|---|
| From: | gwen...@laposte.net (gwen...@laposte.net) | |
| Date: | Mar 7, 2008 2:51:13 am | |
| List: | org.openoffice.fr.prog | |
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 : pr...@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 prénom.n...@laposte.net 1 Go d'espace de stockage, anti-spam et anti-virus intégrés.