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.