vbscript+openoffice

Question

Bonjour,

Voici un code qui marche bien en visual basic

ps: j'ai recuperer ce code sur un exemple du forum

ce code ouvre le fichier c:/document.sxw avec openoffice, l'imprime et ferme Open Office.



Par contre, si j'enregistre ce code dans un fichier test.vbs pour
l'executer en vbscript, j'ai un message d'erreur sur la ligne :



CallByName Document, "print", VbMethod, PrintArgs()



Je debute en vb et je ne vois pas d'ou viens le probleme

merci.



Voici le code:

------------------------------------------------------

Dim ServiceManager

Dim Desktop

Dim Document



Dim args()

Dim PrintArgs(2)



Dim Fichier



Dim I



    ' Fichier &#224; charger

    Fichier = "file:///" & "c:/document.sxw"

   

    ' Cr&#233;ation d'un service OpenOffice

    Set ServiceManager = CreateObject("com.sun.star.ServiceManager")

    Set Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")

   

    ' Ouverture d'un document existant

    Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)

   

    ' Imprimer la page

    Set PrintArgs(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

    ' Nombre de copies du document

    PrintArgs(0).Name = "Copies"

    PrintArgs(0).Value = 2

    ' ???

    Set PrintArgs(1) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

    PrintArgs(1).Name = "Collate"

    PrintArgs(1).Value = False

    ' ???

    Set PrintArgs(2) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

    PrintArgs(2).Name = "Selection"

    PrintArgs(2).Value = False



    ' Action

    CallByName Document, "print", VbMethod, PrintArgs()

   

    ' Referme la document actif

    Call Desktop.activeFrame.Dispose

    

   

    ' Suppression des objets pour lib&#233;rer la m&#233;moire

    Set Document = Nothing

    Set Desktop = Nothing

    Set ServiceManager = Nothing

------------------------------------------------------------------------------

michelxld · Answer

bonsoir 

je n'ai pas test&#233; en vbs , mais tu peux essay&#233; cette adaptation qui fonctionne aussi en VB , pour imprimer un document OOo

    Dim X

    '...

    ' Action
    X = Document.Print(PrintArgs())
    '...

en esperant que &#231;a puisse t'aider
bonne soiree
michel

bonaldal · Answer

J'ai essay&#233; ta methode, elle marche bien en vb mais en vbscript, j'ai toujours la m&#234;me erreur.



Merci quand m&#234;me.

david33470 · Answer

Bonjour,
Je suis confront&#233; exactement au m&#234;me probl&#232;me.
Quelqu'un aurrait il trouver la solution?

Merci d'avance.
Cordialement,
David

Vbscript+openoffice

3 réponses

Discussions similaires