Impression d'un document

Question

Bonjour &#224; tous, 

    J'aimerais savoir s'il est possible d'imprimer un fichier (.doc, .xls, .pdf, ...) sans avoir &#224; l'ouvrir. Ce que je recherche correspond au "clique droit --> imprimer" lorsque l'on se trouve dans l'explorateur windows.Il doit bien y avoir une API qui fait cela..non?

Merci de votre aide. bon prog &#224; tous

Xavier

cs_JMO · Answer

Bonsoir,
Dans l'exemple ci-dessous, j'ouvre des fichiers (.doc et .xls), dans un folder pr&#233;cis,
pour les imprimer (un par un).
Je ne sais pas s'il y a possibilit&#233; d'imprimer un file sans l'ouvrir.

Dim Fso, path, fichier, fichiers, WshShell
path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires sp&#233;cifiques"


Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files


For Each fichier in fichiers
'MsgBox "shortPath=" & fichier.ShortPath & vbCrLf & "Path=" & fichier.Path
'MsgBox "shortName=" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
   If Left(fichier.name,19) = "Main courante Ifdex" Then
      WshShell.Run fichier.ShortPath
      WScript.Sleep(3000)
      WshShell.SendKeys "^p"
      WScript.Sleep(2000)
      WshShell.SendKeys "{ENTER}"  'imprimer => ok
      WScript.Sleep(3000)
      WshShell.SendKeys "%(fq)"   'fermeture du document
      WScript.Sleep(3000)
   End If
   If Right(fichier.name,23) = "WEEK-END EUROFACTOR.xls" Then
      If jour2 = "Vendredi" Then
         WshShell.Run fichier.ShortPath
         WScript.Sleep(3000)
         WshShell.SendKeys "^p"
         WScript.Sleep(2000)
         WshShell.SendKeys "{ENTER}"  'imprimer => ok
         WScript.Sleep(3000)
         WshShell.SendKeys "%(fq)"   'fermeture du document 
         WScript.Sleep(3000)
      End If
Next
Set fso = Nothing
Set WshShell = Nothing

Impression d'un document

1 réponse

Discussions similaires