[Résolu][Calc] Zone d'impression variable

[jlvin]

Bonjour,
Je souhaite pouvoir imprimer une zone avec un nombre de colonnes fixe mais un nombre de ligne variable. Cette zone d'impression est déterminée par une formule dans une cellule (I1) de ma feuille de calcul, cette cellule est appelée "Zone_I".
J'ai tenté le code ci-dessous qui ne fonctionne pas /

Code : Tout sélectionner

sub test

Dim MonDocument As Object, LesFeuilles As Object
Dim MaFeuille As Object, UneZone As Object
dim document   as Object
dim dispatcher as Object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

MonDocument = ThisComponent
LesFeuilles = MonDocument.Sheets
' récupérer la feuille où se trouve la zone nommée
MaFeuille = LesFeuilles.getByName("Feuille1")
UneZone =  MaFeuille.getCellRangeByName("Zone_I")
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "PrintArea"
args2(0).Value = UneZone
args2(1).Name = "PrintRepeatRow"
args2(1).Value = "$A$2:$A$8"
args2(2).Name = "PrintRepeatCol"
args2(2).Value = ""
dispatcher.executeDispatch(document, ".uno:ChangePrintArea", "", 0, args2())
end sub

Pouvez-vous m'aider ?

Pour faciliter la lecture, code mis entre balises par le modérateur.

[Hubert Lambert]

Bonjour,

Ta variable "UneZone" est définie comme Object, alors que le programme attends une valeur de type String.
Par ailleurs, tu fournis une référence de colonne ("$A$2:$A$8") à un paramètre qui attend une référence de ligne ("PrintRepeatRow").
Si ça ne va toujours pas mieux, précise-nous exactement ce qu'il se passe quand "ça ne fonctionne pas" ou, mieux encore, joins-nous un fichier exemple.
Cordialement.

[jlvin]

Bonjour,

merci pour ta réponse mais, si je déclare "UneZone" comme string, j'ai une erreur d'exécution basic "valeur de propriété incorrecte" sur la ligne suivante :

Code : Tout sélectionner

UneZone =  MaFeuille.getCellRangeByName("Zone_I")

Par ailleurs, les lignes ci-dessous correspondent à l'enregistrement d'une macro retraçant la séquence suivante : Format/Zone d'impression/Éditer/, suivi de la saisie des 3 paramètres demandés, dont le premier concerne justement ma zone d'impression variable (Zone_I de la feuille 1), le deuxième les lignes d'en-tête à répétées (ici lignes 2 à 8 ).

Code : Tout sélectionner

args2(0).Name = "PrintArea"
args2(0).Value = UneZone
args2(1).Name = "PrintRepeatRow"
args2(1).Value = "$A$2:$A$8"
args2(2).Name = "PrintRepeatCol"
args2(2).Value = ""
dispatcher.executeDispatch(document, ".uno:ChangePrintArea", "", 0, args2())

quand je dit qu'elle ne fonctionne pas, c'est que la zone d'impression ne change jamais, quel que soit le contenu de Zone_I

Cordialement

[Hubert Lambert]

Là ça devient un peu complexe pour travailler "en aveugle". Envoie-nous une version simplifiée et dépersonnalisée de ton document, que l'on puisse voir comment tout cela fonctionne.
Et merci de ne pas oublier les balises fermantes pour la mise en forme du code

[Dude]

si je déclare "UneZone" comme string, j'ai une erreur d'exécution basic "valeur de propriété incorrecte"

Et comme d'habitude, il faut se servir de XRay pour comprendre ce que te renvoie la méthode :

Code : Tout sélectionner

UneZone =  MaFeuille.getCellRangeByName("Zone_I")

La variable UneZone est une structure CellRange et non une chaîne.

[jlvin]

Ci-joint le fichier en question
merci d'avance

[Hubert Lambert]

Voici, en modifiant ton code au strict minimum :

[jlvin]

Je n'ai pas tout compris : Je ne vois pas la différence avec le code initial, celui attaché au nouveau fichier est :

Code : Tout sélectionner

Sub test

Dim MonDocument As Object, LesFeuilles As Object
Dim MaFeuille As Object, UneZone As Object
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
MonDocument = ThisComponent
LesFeuilles = MonDocument.Sheets
' récupérer la feuille où se trouve la zone nommée
MaFeuille = LesFeuilles.getByName("Feuille1")
UneZone =  MaFeuille.getCellRangeByName("Zone_I")
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "PrintArea"
args2(0).Value = UneZone
args2(1).Name = "PrintRepeatRow"
args2(1).Value = "$A$2:$A$8"
args2(2).Name = "PrintRepeatCol"
args2(2).Value = ""

dispatcher.executeDispatch(document, ".uno:ChangePrintArea", "", 0, args2())

end sub

et le résultat est identique (ce qui est rassurant ...)

Cordialement

[luky-luke]

Bonjour

Je n'ai pas tout compris : Je ne vois pas la différence avec le code initial

Le code initial

Code : Tout sélectionner

dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "PrintArea"
args2(0).Value = UneZone

La modification proposée par Hubert Lambert

Ta variable "UneZone" est définie comme Object, alors que le programme attends une valeur de type String.

Code : Tout sélectionner

args2(0).Name = "PrintArea"
args2(0).Value = UneZone.String

Cordialement
Luke

[jlvin]

C'est parfait.
Merci à tous.

Cordialement