Poser votre question

Historique des modifications [retour]

impression de document ne fonctionne pas dans mon script

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

impression de document ne fonctionne pas dans mon script

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

Sub ImprimTest()

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

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())

O_MonDocWriter.print(A_Prop())

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

0

End Sub

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.36.0.7.3
Le script se lance dans calc.

impression de document ne fonctionne pas dans mon script

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
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.