[Résolu][Calc] Insérer contenu d'un tableau dans un dialogue

[Suricate-1946]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets).

Bonjour à toutes et à tous

Nouveau sur ce forum, j’espère que ma question est posée dans la bonne rubrique.

Après avoir récupérer dans un tableau (par macro) le nom de toutes les imprimantes, je souhaite les faire figurer dans une boite de dialogue pour pouvoir en sélectionner une.
Après maintes tentatives et recherches, je n’y parviens pas.
En souhaitant avoir été assez clair, je joins un fichier pour l’exemple.

Merci à tous pour votre aide

[Churay]

Bonjour à certains, Bonne nuit aux autres

Une source d'inspiration

[Jurassic Pork]

hello,

je souhaite les faire figurer dans une boite de dialogue pour pouvoir en sélectionner une.

si c'est pour sélectionner une imprimante tu peux utiliser la boîte de dialogue native de paramètrage de l'imprimante de l'application comme ceci :

Code : Tout sélectionner

GlobalScope.BasicLibraries.LoadLibrary("Tools")
'Paramètrage imprimante
DispatchSlot(5302) 

ou comme ceci :

Code : Tout sélectionner

dim Args1() as new com.sun.star.beans.PropertyValue
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:PrinterSetup", "", 0, Args1())

qui donne ceci :

Paramimprimante.png

ou alors juste avant une impression :

Code : Tout sélectionner

GlobalScope.BasicLibraries.LoadLibrary("Tools")
DispatchSlot(5504) 

ou :

Code : Tout sélectionner

dim Args1() as new com.sun.star.beans.PropertyValue
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Args1())

qui donne ceci :

LibreOffImprimer.png

Ami calmant, J.P

[Suricate-1946]

Merci à tous ceux qui ont eu la gentillesse de me venir en aide. Notamment Dude, Churay et Jurassik Pork.
Jurassik Pork m’a donné plus qu’il ne m’en fallait et grâce à lui je pense pouvoir terminer l’application que je développe bénévolement pour une association.
Dès que j’aurai fini, je ne manquerai pas de vous tenir informés.
Mille fois merci à tous pour votre implication.
Cordialement
Suricate-1946