Discussion :

[safisafi]

Bonjour,

mon service windows fait appel à une fonction de PubliPostage pour créer et lancer un document en impression

parfois la fonction reste plantée, aucune exception n'est généré, le Word reste lancé en processus et aucune impression n'est faite. je dois dans ce cas arrêter le processus manuellement et redémarrer mon service windows pour reprendre le fonctionnement ...

j'arrive pas à trouver la source de l'erreur : si du côté de mon code ou du word lui même !

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
        Dim WordAppli As Word.Application
        Dim MergeDoc As Word.Document 
        Dim TemplateFile As Object = "Template.doc"
            Dim DataSourceFile As Object =  "DataSource.txt"
            Dim ObjMiss As Object = System.Reflection.Missing.Value 'Type.Missing
            Dim OFalse As Object = False
            Dim OTrue As Object = True
 
            'Starting the Word Application
            WordAppli = New Word.Application
            WordAppli.Visible = True
            'Open the Template file
            MergeDoc = WordAppli.Documents.Open(TemplateFile, ObjMiss, OFalse, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss)
            MergeDoc.Activate()
            'Open the Data Source
            Dim DSFormat As Object = Word.WdOpenFormat.wdOpenFormatText
            MergeDoc.MailMerge.OpenDataSource(DataSourceFile, DSFormat, OFalse, ObjMiss, OTrue, OFalse, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss)
            'Perform the Mail Merge
            MergeDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToPrinter
            MergeDoc.MailMerge.SuppressBlankLines = False
            MergeDoc.MailMerge.Execute(OTrue)

[safisafi]

j'ai oublié de préciser que ma fonction est dans un bloc try catch
et que je détruis les objets utilisés dans la clause finally :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Finally
            'Close the template document.
            If Not MergeDoc Is Nothing Then MergeDoc.Close()
            If Not WordAppli Is Nothing Then WordAppli.Quit()
            MergeDoc = Nothing
            WordAppli = Nothing

[sebnantes]

Et tu as un message qui s'affiche normalement si tu passes dans le catch ?

[safisafi]

peut être j'ai pas bien compris ta question sebnantes,

en cas de plantage je n'arrive pas au bloc catch !

[Sankasssss]

bonjour,
pourquoi ne pas utiliser la méthode PrintOut pour imprimer?
voir : http://msdn.microsoft.com/fr-fr/libr...=VS.80%29.aspx
ton problème vien peut-être de la méthode employée...

[safisafi]

Ceci va me servir pour la fusion et l'impression ? as tu un exemple de code ?

[Sankasssss]

Non excuse moi, je n'avais pas bien lu ton poste, tu utilises donc la bonne technique.
Je ne serais te dire pourquoi cela plante désolé mais si tu trouves n'hésite pas à mettre la réponse.
Bonne soirée.