Discussion :

[khany]

Bonjour !

J'imprime en boucle le même document word rempli à partir d'une application VB6 par la méthode des signets.

Malgré le DoEvents à l'impression, la programme a fini plus vite que l'imprimante, c'est normal.

Dès lors, il passe dans mes instructions de fermeture de word et, là, j'ai le message type du style : "En fermant word, vous allez arrêter l'impression.... oui ou non ..." !

Il faudrait donc que je ne ferme word que lorsque ma tâche d'impression est finie.

Comment puis-je intercepter cela sachant que l'imprimante est en réseau et que d'autres tâches sont lancées simultanement à la mienne ?

Merci

[bidou]

il faut mettre le paramètre background de la méthode printout à false

[shwin]

sinon khany tu peux utiliser ceci

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
 
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hPrinter As Long, lNeeded As Long, lReturned As Long
    Dim lJobCount As Long
    OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
    EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
    If lNeeded > 0 Then
        ReDim byteJobsBuffer(lNeeded - 1) As Byte
        EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
        If lReturned > 0 Then
            lJobCount = lReturned
        Else
            lJobCount = 0
        End If
    Else
        lJobCount = 0
    End If
    ClosePrinter hPrinter
    MsgBox "Jobs in printer queue: " + CStr(lJobCount), vbInformation
End Sub

[khany]

merci pour les pistes, je regarde ca

[khany]

code :

Code :

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

1
2
 
AppWord.ActiveDocument.Printout Background:= True

ne change rien au problème. Word s'ouvre (et ca je voudrais que l'utilisateur n'en sache rien) en fond gris avec le message (correct cette fois ) :

Impression en cours. La fermeture de Word entrainera la suppression de tous les travaux d'impression en attente. Désirez-vous néanmoins quitter Word ? Oui Non

si je dis "oui", évidemment rien ne s'imprime ! Si je dis "non", je dois attendre la fin de l'impression pour fermer Word manuellement (sur la croix par ex)



Pour shwin, vu que c'est plus complexe, je vais prendre plus de temps pour m'y retrouver

[khany]

Shwin, une petite question :

Comment puis-je savoir quelle est ma tâche dans le spool ?

Lorsque je lis la liste des tâches juste avant de lancer la mienne je peux avoir des impressions dans le spool, disons 2 par exemple.
Je lance la mienne donc, 3 dirons-nous mais :

- un job peut s'être terminé juste avant
- un job peut avoir été lancé simultanément

donc 3 dans l'exemple serait faux

[ThierryAIM]

il faut mettre le paramètre background de la méthode printout à false

Code :

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

1
2
 
AppWord.ActiveDocument.Printout Background:= True

tu es sûr de ton coup ou c'est un erreur de frappe :

[mat.M]

Malgré le DoEvents à l'impression, la programme a fini plus vite que l'imprimante, c'est normal.

Dès lors, il passe dans mes instructions de fermeture de word et, là, j'ai le message type du style : "En fermant word, vous allez arrêter l'impression.... oui ou non ..." !

problème classique de désynchronisation des processus.

Une solution , SERAIT , de faire de la programmation Multithreading.....
Mais c'est pas évident à mettre en place

Sinon voir du côté de WithEvents

Réponse aux événements d'un objet
Si votre application répond aux événements des objets Visual Basic, elle peut aussi répondre à ceux d'un objet fourni par un composant ActiveX. Votre application Visual Basic peut, par exemple, afficher un message quand un événement se produit dans un classeur Microsoft Excel.

Vous commandez à votre application de répondre aux événements d'un objet en ajoutant du code à une procédure d'événement de l'objet. Cependant, les procédures d'événement des objets fournis par des composants ne sont pas automatiquement disponibles dans Visual Basic. Vous devez d'abord déclarer une variable objet à l'aide du mot clé WithEvents.

Après avoir déclaré une variable objet avec WithEvents, la fenêtre de code Visual Basic utilise la variable pour afficher les procédures d'événement de l'objet. Vous pouvez ensuite ajouter du code à ces procédures d'événement pour répondre aux événements de l'objet. Quand vous affectez une référence d'objet à la variable, vous établissez une connexion entre la variable et l'objet au moment de l'exécution.

Pour créer une procédure d'événement pour un objet fourni par un composant

Ajoutez une référence à la bibliothèque de types du composant dans votre projet Visual Basic. Pour plus d'informations sur l'ajout d'une référence à une bibliothèque de types, reportez-vous à la section « Création d'une référence à un objet ».


Dans la section Déclarations d'un module de classe ou de feuille, déclarez une variable objet à l'aide du mot clé WithEvents. Par exemple :
Dim WithEvents xlBook As Excel.Workbook

Visual Basic ajoute le nom de la variable objet à la zone Objet de la fenêtre de code. Quand vous sélectionnez le nom de la variable, Visual Basic affiche les procédures d'événement de l'objet dans la zone de liste Procédures.

Sélectionnez une procédure d'événement, puis ajoutez du code à la procédure que votre application doit exécuter lorsque l'événement se produit.
Supposons, par exemple, que votre application Visual Basic repose sur des données affichées dans un classeur Microsoft Excel et que vous avez déjà déclaré une variable xlBook WithEvents pour le classeur. Quand un utilisateur essaie de fermer le classeur, vous pouvez afficher un message et empêcher la fermeture du classeur en ajoutant le code suivant à la procédure d'événement xlBook_BeforeClose dans votre application :

Private Sub xlBook_BeforeClose(Cancel As Boolean)
' Masque la fenêtre Microsoft Excel afin
' d'afficher le message.
xlBook.Application.Visible = False
' Affiche le message.
MsgBox "Ce classeur doit rester ouvert."
' Affiche la fenêtre Microsoft Excel.
xlBook.Application.Visible=True
' Affecte la valeur True à l'argument Cancel
' de la procédure d'événement pour annuler
' l'événement.
Cancel = True
End Sub

Affectez une référence d'objet à la variable objet WithEvents.
Vous pouvez, par exemple, ajouter le code suivant à la procédure d'événement Form_Load de la feuille Visual Basic pour affecter à la variable xlBook une référence à un classeur Microsoft Excel nommé Sales.xls :

Private Sub Form_Load()
Set xlBook = GetObject("Sales.xls")
' Affiche la fenêtre Microsoft Excel
' et la feuille de travail.
xlBook.Application.Visible = True
xlBook.Windows(1).Visible = True
End Sub

[khany]

tu es sûr de ton coup ou c'est un erreur de frappe :

à moi ! bête erreur de frappe (et du coup, je vais vérifier si j'ai pas fait la même dans l'appli bien que je pense pas)

ps : du coup, je reprends des vacances


Mat.m je regarde dès que j'ai du temps libre

[khany]

Finalement, j'ai utilisé la solution de Bidou (j'avais bien une faute de frappe mais pas à l'endroit où je pensais ) et celui de Shwin car j'ai remarqué que, si beaucoup de tâches sont lancées, il y en a parfois qui se "glissent" entre mes documents lors du "rechargement des signets", cela permet de le signaler à l'utilisateur

au fait, c'est normal cet "intercalage" de tâches dans le spool ?

merci