[VBA-Word] Faire disparaitre une fenêtre lors de l'impression. [Résolu]

[Clad3]

Bonjour à tous .
Je réalise une petite opération :

Dés que l'on ouvre un document Word, celui-ci effectue un publipostage vers l'imprimante et referme Word .

Le seul problème est que lors de l'impression, il m'ouvre une "invite" d'impression pour que je la valide .... je souhaiterai m'en passer ... j'ai fouiller sur le web, sans succès .

( j'ai essayer les true du style mettre les altert à "false" ect ... )

Voila mon code pour le moment :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Document_Open()
 
    MailMerge.Destination = wdSendToPrinter
    MailMerge.SuppressBlankLines = True
 
    MailMerge.DataSource.FirstRecord = wdDefaultFirstRecord
    MailMerge.DataSource.LastRecord = wdDefaultLastRecord
 
    MailMerge.Execute (False)
 
    Application.Quit (False)
 
End Sub

[ouskel'n'or]

Au lieu d'utiliser " MailMerge.Destination = wdSendToPrinter", ne peux-tu pas utiliser PrintOut ?

Code :

1
2
3
4
5
6
7
8
9
10
    With ActiveDocument.MailMerge 'Fusion
        .Destination = wdSendToNewDocument
        .Execute
    End With
 
    'Edition
    Application.PrintOut Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", _
        PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True

Tu as la description des paramètres de PrintOut dans l'aide

[Clad3]

Ca passe l'invite d'impression , mais en revanche si je laisse mon ( Application.Quit ) ca n'imprime pas ... ca doit fermer trop vite l'aplication .
Bref je vais regarder comment on attend la fin des impression avant de passer a l'instruction suivante

[Clad3]

Hop problème résolu, il fallait changer l'argument "Background" à false .

[ouskel'n'or]

Je réponds à ça :

Ca passe l'invite d'impression , mais en revanche si je laisse mon ( Application.Quit ) ca n'imprime pas ... ca doit fermer trop vite l'aplication .

En effet, quand tu as ce problème c'est que tu ne laisses pas le temps au système de faire son boulot. Pour lui laisser le temps, tu dois mettre "DoEvents" entre la commande d'édition et la fermeture de ton fichier.
De même quand tu veux enregistrer un fichier avant de quitter.
DoEvents ? Y'a que ça de vrai

A toutes fins utiles