4 messages in org.openoffice.fr.progRe: [prog] [Calc] SetPrintAreas ?!
FromSent OnAttachments
Fr...@idkal.comJan 23, 2006 8:21 am 
Bernard MarcellyJan 23, 2006 9:17 am 
JovialJan 23, 2006 11:28 am 
Fr...@idkal.comJan 24, 2006 3:02 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:Re: [prog] [Calc] SetPrintAreas ?!Actions...
From:Jovial (o.jo@free.fr)
Date:Jan 23, 2006 11:28:41 am
List:org.openoffice.fr.prog

Fr@idkal.com a écrit :

Bonjour à tous,

j'ai définis une zone contenant des cellules (ex : A1:C3) nommée "Zone1"

Dim maZone as Object Dim maFeuille as Object

maFeuille = ThisComponent.Sheets(0) maZone = maFeuille.getCellRangeByName("Zone1")

maFeuille.SetPrintAreas(maZone.RangeAddress)

uBound(maFeuille.PrintAreas) = -1 :( >> la zone d'impression n'a pas été définie ...

Quelqu'un pourrait m'expliquer ?

Fred

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org

Bonjour

essaye de t'inspirer de celle ci

Sub AjusteZoneImpression MonDoc = ThisComponent 'Sélectionne le document en cours MaFeuille = MonDoc.CurrentController.ActiveSheet ' sélectionne la feuille activé 'on redéfini la zone d'impression ZoneImprim = maFeuille.getCellRangeByName("ZoneImpression") 'Zone nomée adrZones(0) = ZoneImprim.RangeAddress maFeuille.PrintAreas = adrZones() 'MonDoc.Print(Props()) ' impression End sub

Jean-luc

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org