12 messages in org.openoffice.fr.progProblème de zones d'impression
FromSent OnAttachments
Sebastien RemyJun 2, 2006 12:25 am 
Olivier VillatteJun 2, 2006 12:43 am 
Sebastien RemyJun 2, 2006 1:14 am 
Laurent GodardJun 2, 2006 1:45 am 
Olivier VillatteJun 2, 2006 1:50 am 
emma...@fr.thalesgroup.comJun 2, 2006 2:06 am 
Sebastien RemyJun 21, 2006 6:22 am 
Sebastien RemyJun 23, 2006 6:50 am 
Sebastien RemyJun 27, 2006 4:51 am 
Bernard MarcellyJun 27, 2006 12:15 pm 
Sebastien RemyJun 28, 2006 12:53 am 
Bernard MarcellyJun 28, 2006 3:17 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Problème de zones d'impressionActions...
From:Sebastien Remy (re@h3c-energies.fr)
Date:Jun 27, 2006 4:51:31 am
List:org.openoffice.fr.prog

Bonjour à tous, j'ai une macro principale qui appelle deux macros. Ces deux macros définissent une zone d'impression différente dans le même fichier, afin d'exporter en pdf. Le problème est que lors de l'appel de la seconde macro, la zone d'impression de la première macro reste en mémoire. Quelqu'un aurait-il une solution ? Est-il possible de cacher une zone d'impression après son utilisation ? Merci d'avance pour votre aide

Ci dessous, je vous joint la partie problématique de la macro. Sébastien

sub macro1

maZone1 = sortiehebd.sheets(0).getCellRangeByName("A1:F53")

maZone2 = sortiehebd.sheets(0).getCellRangeByName("A54:F106")

AdrZone(0) = maZone1.RangeAddress

AdrZone(1) = maZone2.RangeAddress

sortiehebd.sheets(1).PrintAreas = adrZone()

adress = ConvertToURL("/home/sebastien/helios/home/doc1.pdf")

sortiehebd.StoreToURL(adress, propf())

macro2

end sub

sub macro2

maZone1 = sortiehebd.sheets(0).getCellRangeByName("A1:F49")

maZone2 = sortiehebd.sheets(0).getCellRangeByName("A50:F102")

maZone3 = sortiehebd.sheets(0).getCellRangeByName("A103:F155")

AdrZone(0) = maZone1.RangeAddress

AdrZone(1) = maZone2.RangeAddress

AdrZone(2) = maZone3.RangeAddress

sortiehebd.sheets(2).PrintAreas = adrZone()

adress = ConvertToURL("/home/sebastien/helios/home/doc2.pdf" )

sortiehebd.StoreToURL(adress, propf())

end sub