Poser votre question
0

impression de document ne fonctionne pas dans mon script

posée 2019-04-26 14:50:07 +0200

Image Gravatar de servinfo

updated 2019-04-27 07:18:53 +0200

Image Gravatar de pierre-yves samyn

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.

éditer requalifier signaler fermer fusionner supprimer

1Réponse

0

répondue 2019-04-27 07:19:46 +0200

Image Gravatar de pierre-yves samyn

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

éditer signaler supprimer permalien plus

Commentaires

Votre solution semble fonctionner. Grand merci à vous.

Image Gravatar de servinfoservinfo ( 2019-04-29 09:19:54 +0200 )éditer
S'identifier/S'inscrire pour répondre

Outils de question

1 suiveurs

Stats

Posée: 2019-04-26 14:50:07 +0200

Consultée: 8 fois

Mise à jour: Apr 27