Discussion :

[nicovoa]

Bonjour à tous

Je suis en train de programmer une petite application qui modifie les valeurs d'un classeur OpenOffice.

J'arrive à faire ce que je veux jusqu'au moment de l'impression...
Je voudrais définir le nombre de copies et l'imprimante à utiliser

J'ai trouvé les options dans la doc d'OpenOffice mais je n'arrive pas à les adapter : http://wiki.services.openoffice.org/...de/StarDesktop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim OOoCla, OOoFeuille1 As Object
Dim fileExists As Boolean
 
        'Connection à OpenOffice
        ConnectOpenOffice()
 
        'Ouverture d'OpenOffice
        OOoCla = StarDesktop.loadComponentFromURL(ConvertToURL("c:/monclasseur.ods"), "_blank", 0, dummyArray)
 
        'Sélection de la 1ère feuille du classeur
        OOoFeuille1 = OOoCla.Sheets.getByIndex(0) 
 
        'Définition des options d'impressions pour l'imprimante
        Dim PrintProperties As Object
        PrintProperties = CreateUnoStruct("com.sun.star.beans.PropertyValue", 0)
 
        PrintProperties(0).Name = "CopyCount"
        PrintProperties(0).Value = "2" 'Nombre de copies
 
        Dim PrinterProperties(0) As Object
        PrinterProperties = CreateUnoStruct("com.sun.star.beans.PropertyValue", 0)
 
        PrinterProperties(0).Name = "Name"
        PrinterProperties(0).Value = "Canon Inkjet S750" 'Nom de l'imprimante
        OOoCla.Printer = PrinterProperties
 
        OOoCla.print(PrintProperties)
 
 
        'On ferme le classeur
        OOoCla.close(True)
 
        'Déconnection d'OpenOffice
        DisconnectOpenOffice()

Est-ce que quelqu'un sait comment on fait ?
Merci d'avance pour votre aide

[nicovoa]

Je m'auto-répond :

On ne peut pas directement déclaré les propriétés comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim PrintProperties As Object
PrintProperties = CreateUnoStruct("com.sun.star.beans.PropertyValue", 0)
 
PrintProperties(0).Name = "CopyCount"
PrintProperties(0).Value = "2" 'Nombre de copies

Mais il faut utiliser la fonction MakePropertyValue fournie s'il y a une seule propriété ou utiliser la fonction CreateProperties s'il y'en a plusieurs

Ca donne donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim PrintProperties(0) As Object
PrintProperties(0) = MakePropertyValue("CopyCount", 2)