Discussion :

[973thom]

Bonjour,

J'utilise le publipostage vers word depuis maintenant pas mal de temps et j'aimerai aujourd'hui rajouter une fonction qui me serait très utile.

En fait, au lieu d'ouvrir le document Word créé après l'avoir enregistrer, j'aimerais qu'il soit directement imprimé avec l'imprimante utilisée par défaut sur le PC utilisé.

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
24
25
26
27
28
29
30
Dim wdapp As Object
Const CHEMIN_DOCUMENT As String = "\CONVOC_ENREGISTREES\"
Const WdGoToBookmark = -1
Const WdStory = 6
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open CurrentProject.Path & "\CONVOC_MODELE\CONVOC.DOC"
 
With wdapp.ActiveDocument
    .Bookmarks("SignAdressage").Range.Text = SignAdressage
    .Bookmarks("SignDate").Range.Text = SignDate
    .Bookmarks("SignRapam").Range.Text = SignRapam
    .Bookmarks("SignMontant").Range.Text = SignMontant
    .Bookmarks("SignNbBov").Range.Text = SignNbBov
    .Bookmarks("SignLieuRDV").Range.Text = SignLieuRDV2
    .Bookmarks("SignHeureRDV").Range.Text = SignHeureRDV2
    .Bookmarks("SignDateRDV").Range.Text = SignDateRDV2
    ' je sauvegarde le fichier sous un autre nom
    wdapp.ActiveDocument.SaveAs CurrentProject.Path & CHEMIN_DOCUMENT & NomFichier & ".doc"
    ' je ferme le fichier
    wdapp.ActiveDocument.Close
    ' je ferme l'application
  End With
  wdapp.Visible = True
  wdapp.Documents.Open CurrentProject.Path & CHEMIN_DOCUMENT & NomFichier & ".doc"
 
  Set wdapp = Nothing
End Sub

Pouvez vous m'indiquer la commande à utiliser pour imprimer directement le document word créé ??

Merci d'avance et bon WE à tous.

Thomas

[Muhad'hib]

Salut,

T'as essayé

Code :

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

1
2
3
 
 
wdapp.ActiveDocument.PrintOut

A+

[973thom]

Salut,
T'as essayé

Code :

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

1
2
 
wdapp.ActiveDocument.PrintOut

A+

Ben non je n'avais pas essayé ça...

Cependant ça fonctionne à la perfection ..

Merci de ton aide.

Thom

[973thom]

J'ai de nouveau une question à ce sujet.

Etant donné que je travaille avec des imprimantes en réseau et que celle ci ne sont pas tout prèt de mon bureau je n'ai aucun moyen de savoir si mon doncument et été imprimé ou non.

Ainsi, y a til un moyen d'avoir une confirmation d'impression ???

Genre un message box et qq chose comme ça.

Merci