Impression de document ne fonctionne pas dans mon script

[servinfo]

Bonjour,
Je n’arrive pas à imprimer un document à partir du script suivant :

Sub ImprimTest()

Dim O_MonDocWriter as Object
Dim S_AdresseDocWriter as String
dim S_RepWriter, S_DocWriter as String
Dim A_Prop()
Dim O_JeCherche as object
Dim V_Trouv as variant
Dim S_String, S_MaChaine as String
Dim I_Index as Integer
Dim S_Reponse as string

S_AdresseDocWriter = ConvertToUrl("\home\servinfo\Documents\PUBLIPOSTAGE\Modele\r1.ott")
O_MonDocWriter = StarDesktop.loadComponentFromUrl( S_AdresseDocWriter, "_blank", 0, A_Prop() )
O_MonDocWriter.print(A_Prop())

' Fermeture du document'
on Error Resume Next
O_MonDocWriter.close(true)
on Error GoTo 0

End Sub

La recherche et le remplacement de données dans le fichier se passe très bien (j’ai enlevé le code de mon exemple)
Par contre l’impression ne donne rien. Pas d’erreur non plus.
Le document se ferme bien.

Si quelqu’un a une idée …

Merci d’avance

NB : je travaille avec Ubuntu 18.4 LTS et la version de LibreOffice est la 6.0.7.3
Le script se lance dans calc.

[PYS]

Bonjour

Essaie :

dim props(1) as new com.sun.star.beans.PropertyValue

props(0).Name = "Wait"
props(0).Value = true

O_MonDocWriter.print(props())

Cordialement

[servinfo]

Votre solution semble fonctionner.
Grand merci à vous.