imposer un délai d'attente lors d'un impression word

Question

Bonjour à tous, 

je cherche comment imposer un délai d'attente lors d'une impression dans word (version 95) pilotés en OLE par VB avant de clore le document (qui inhibe l'impression),
je sais que pour word 97 la solution suivante marche a merveille :

dim wordapp as object
set wordapp = createobject ("word.application")
wordapp.Documents.Open App.Path & "\bidon.dot"
wordapp.printout

While wordapp.BackgroundPrintingStatus <> 0
wend

seulement ceci est du code VB alors que l'Automation pour word 95 est du code VBA, du genre :

dim wordapp as object
set wordapp = createobject ("word.basic")

wordapp.fichiernouveau modele:="bidon.dot"            wordapp.fichierimprimer

donc voila, si quelqu'un a une idée, je suis pret à l'entendre.

D'avance merci

SOHET Morgan

C.N.P.O. - Le Belloy

XWinnieX · Answer

j'ai eu un problème similaire mais pas avec la même version de word cette "solution" laisse le temps de prendre l'impression en compte et ne l'annule pas... mais bon c'est du bidouillage...

    wrdDoc.PrintOut
        
  MsgBox ("Impression en cours..."), vbOKOnly

     wrdDoc.Close SaveChanges:=0

cs_JMO · Answer

Bonjour,

Tu peux aussi utiliser l'option "Sleep(xxxxx)"

Exemple ci-dessous, où j'utilise Explorer pour ouvrir et éditer des fichiers (doc ou xls).

    If Left(fichier.name,22) = "SLIFAC 32 - 61 Espagne" Then
        WshShell.SendKeys "^p"
        WScript.Sleep(2000)
        WshShell.SendKeys "{ENTER}" 'imprimer => ok
        WScript.Sleep(3000)
        WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
        WScript.Sleep(3000)
        WshShell.SendKeys "%(fq)"   'fermeture du document
        WScript.Sleep(3000)

GBICK · Answer

J'avais le m&#234;me probl&#232;me avec une version plus r&#233;cente de word ( pour
imprimer plusieurs documents &#224; la suite ) ; je ne sais donc pas si
cette solution fonctionnera sur 95.



Dans l'aide vba word , sur la fonction printout :



expression.PrintOut(Background, 
Append, Range, OutputFileName, 
From, To, Item, Copies, 
Pages, PageType, PrintToFile, 
Collate, FileName, ActivePrinterMacGX, 
ManualDuplexPrint, PrintZoomColumn, 
PrintZoomRow, PrintZoomPaperWidth, 
PrintZoomPaperHeight)


Background   Argument de type Variant facultatif. 
Affectez-lui la valeur True pour que l'ex&#233;cution de la macro se poursuive 
pendant l'impression du document dans Microsoft Word.



Et donc avec False, le programme attend que l'impression ait
bien &#233;t&#233; prise en compte avant de passer &#224; l'instruction suivante (
l'execution en est ralentie mais l'impression ne n&#233;cessite pas une
confirmation, ex msgbox, permettant de lancer 100 impressions &#224; la
suite sans devoir cliquer 100 fois sur un bouton  ).

Imposer un délai d'attente lors d'un impression word

3 réponses

Discussions similaires