Discussion :

[Zandar]

Quelqu'un sait-il comment connaître l'état d'une impression lancée à partir d'un code VBA, c'est à dire si l'imprimante est connectée et prête, si le papier ne manque pas, et enfin si l'impression a bien été faite avec succès. Un message ou un signal envoyé par une API doit bien être utilisable pour çà? J'ai cherché en vain depuis longtemps.
J'aimerai aussi ne pas utiliser l'objet Printer de VB, car il n'existe pas en VBA, et mes besoins actuels sont pour des impressions Excel VBA.

Merci d'avance

[megapacman]

essaie ca

Code :

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

1
2
3
 
 
ActiveWorkbook.PrintOut, ou ActiveSheet.PrintOut

[megapacman]

http://pubs.logicalexpressions.com/P...cle.asp?ID=116

[megapacman]

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
 
 
ActivePrinter Property
See AlsoApplies ToExampleSpecificsReturns or sets the name of the active printer. Read/write String.
 
Example
This example displays the name of the active printer.
 
MsgBox "The name of the active printer is " & _
    Application.ActivePrinter
 
DisplayPageBreaks Property
See AlsoApplies ToExampleSpecificsTrue if page breaks (both automatic and manual) on the specified worksheet are displayed. Read/write Boolean.
 
Remarks
You can't set this property if you don't have a printer installed.
 
Example
This example causes Sheet1 to display page breaks.
 
Worksheets("Sheet1").DisplayPageBreaks = True

[Zandar]

Le site pubs.logicalexpression que tu cites contient en effet un article
qui peut répondre à ma question, au moyen de fonctions API.
Rien d'autre ne marche.
Je vais essayer de résoudre mon pb avec cet article, mais c'est pas gagné!

Merci beaucoup

[ouskel'n'or]

Ouf ! Tu es sur le bon forum... Bienvenue.
Pour vérifier si tu as une imprimante active, tu fais

Code :

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

1
2
3
On error resume next
BécaneActive = Application.activeprinter
if err or (BécaneActive = "") then msgbox "y'a pas d'imprimante active !"

Tu peux améliorer mais en gros, ça devrait s'adapter
Tu dis

[Zandar]

Merci pour ton conseil, mais ceci donne seulement le nom de l'imprimante par défaut, même si elle n'est pas allumée!
Ce que je veux savoir, c'est si elle est prête pour l'impression pendant un programme.

[ouskel'n'or]

Regarde aussi dans l'aide à Com

Périphérique non disponible (erreur 68)

Ça dit comme ça

Causes et solutions de cette erreur :
· Le périphérique auquel vous tentez d'accéder est hors ligne ou n'existe pas.
Vérifiez que le périphérique est sous tension et que les câbles le raccordant à votre ordinateur sont bien branchés. Si vous tentez d'accéder à une imprimante via un réseau, vérifiez l'existence d'une connexion logique entre l'ordinateur et l'imprimante, par exemple, une connexion associant LPT1 à l'identificateur de l'imprimante réseau.
· Votre connexion réseau a peut-être été rompue.
Reconnectez-vous au réseau et recommencez l'opération.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1.

Mais l'utiliser implique de tester le port et ça...
Ton code nous intéressera sûrement.
A+

Une petite recherche dans la FAQ => http://www.developpez.net/forums/sho...light=imprimer
SilkyRoad donne le moyen de connaître l'imprimante active. Ça doit pouvoir t'aider
A+

[Zandar]

Malgré votre aide et mes recherches, je n'ai toujours pas trouvé de solution à mon pb...
Je continue. Je suis sûr qu'il y a une réponse avec une API.
Si quelqu'un a d'autres infos, welcome!

[alex_elder1_1]

je peux juste te donner ce code pour avoir ta previsualisation je sais pas si c peut t'aider

Code :

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

1
2
3
ActiveDocument.PrintPreview
 
ActiveDocument.ClosePrintPreview