[EMAIL PROTECTED] 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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]