Petit question au sujet de l'impression

[Brice.h]

Bonjour,
Voilà, j'ai un petit soucis, j'ai crée une macro pour imprimer une partie d'un document calc. Elle fonctionne (même si j'ai dut redimentionner les cellules à la main pour que tout tienne sur la feuille, car je n'ai pas trouvé la commande permettant le redimentionnement automatique en fonction d'une zone d'impression), mais le problème vient de quand j'ai voulut en créer une autre pour une autre feuille du même document.
A ce moment, quand je lance l'impression de la première, ça lance l'impression de ma deuxième zone d'impression, même si elle n'est pas sur la même page.

Code : Tout sélectionner

Sub  imp11
Dim monDoc As Object, lesFeuilles As Object
Dim maFeuille As Object, maZone As Object
Dim Props() As New com.sun.star.beans.PropertyValue
Dim adrZones(1) As New com.sun.star.table.CellRangeAddress
 
 monDoc = thisComponent
 lesFeuilles = monDoc.Sheets
 maFeuille = lesFeuilles.getByName("Eff_depart") 
 maZone = maFeuille.getCellRangeByName("A5:I47")
 adrZones(0) = maZone.RangeAddress 
 maFeuille.PrintAreas = adrZones()
 monDoc.Print(Props())

End Sub

j'ai voulut rajouter

Code : Tout sélectionner

.IsPrintFitPage

afin que la dimensionnement se fasse automatiquement, mais cela ne fonctionne pas

J'avais cru comprendre qu'il fallait rajouter une zone d'impression, mais cela ne fonctionne pas, même quand je le fais en manuel, y a-t-il quelque chose que j'ai zapé ?