IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

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


Sujet :

VBA Word

  1. #1
    Membre habitué
    Inscrit en
    Octobre 2004
    Messages
    616
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 616
    Points : 164
    Points
    164
    Par défaut [VBA-Word] Faire disparaitre une fenêtre lors de l'impression.
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Au lieu d'utiliser " MailMerge.Destination = wdSendToPrinter", ne peux-tu pas utiliser PrintOut ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre habitué
    Inscrit en
    Octobre 2004
    Messages
    616
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 616
    Points : 164
    Points
    164
    Par défaut
    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

  4. #4
    Membre habitué
    Inscrit en
    Octobre 2004
    Messages
    616
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 616
    Points : 164
    Points
    164
    Par défaut
    Hop problème résolu, il fallait changer l'argument "Background" à false .

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E][DEBUTANT] Agrandir une fenêtre classeur Excel
    Par skual dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 23/02/2006, 15h18
  2. Réponses: 8
    Dernier message: 07/02/2006, 18h31
  3. [Stratégie] Erreurs: faire apparaître une fenêtre
    Par seb.ch dans le forum AWT/Swing
    Réponses: 4
    Dernier message: 04/08/2005, 15h08
  4. Réponses: 2
    Dernier message: 13/12/2004, 15h16
  5. [Plugin / Graphique] Faire apparaitre une fenêtre?
    Par relivio dans le forum Eclipse Platform
    Réponses: 7
    Dernier message: 31/03/2004, 19h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo