5 messages in org.openoffice.fr.progRe: [Calc] imprimer plusieurs feuilles ?
FromSent OnAttachments
Sarah Haïm-LubczanskiFeb 13, 2007 9:49 am 
Francois GattoFeb 13, 2007 12:53 pm 
Bernard MarcellyFeb 14, 2007 12:56 am 
Sarah Haïm-LubczanskiFeb 14, 2007 8:36 am 
Sarah Haïm-LubczanskiFeb 14, 2007 9:01 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: [Calc] imprimer plusieurs feuilles ?Actions...
From:Sarah Haïm-Lubczanski (sar@anaska.com)
Date:Feb 14, 2007 9:01:17 am
List:org.openoffice.fr.prog

Merci de votre aide, au fait :) Voici finalement la macro utilisée (plus de
boucles) '-------------------- Sub CreerZoneImp1

Dim monDocument As Object, lesFeuilles As Object Dim uneFeuille As Object Dim lesZonesNom As Object Dim maZone1 As Object Dim maZone2 As Object Dim Props() As New com.sun.star.beans.PropertyValue Dim adrZones1(0) As New com.sun.star.table.CellRangeAddress Dim adrZones2(0) As New com.sun.star.table.CellRangeAddress Dim nbz As integer , x As integer , y As integer

monDocument = ThisComponent lesFeuilles = monDocument.Sheets lesZonesNom = monDocument.NamedRanges nbz = lesZonesNom.Count

uneFeuille = lesFeuilles(0) print uneFeuille.Name maZone1 = uneFeuille.getCellRangeByName("A1:G24") adrZones1(0) = maZone1.RangeAddress uneFeuille.PrintAreas = adrZones1() Xray adrZones1

uneFeuille = lesFeuilles(1) print uneFeuille.Name maZone2 = uneFeuille.getCellRangeByName("B5:D12") adrZones2(0) = maZone2.RangeAddress uneFeuille.PrintAreas = adrZones2()

monDocument.Print(Props()) End Sub '-------------------

Sarah