Imprimer une liste de fichiers pdf et word via vba excelRésolu

Question

Bonjour, je ne maitrise pas trop vba pour manipuler acrobat:

Si je fais le programme ci dessous ça marche parfaitement je peux imprimer un fichier word via vbaExcell..donc en développant le code je peux imprimer une liste de fichiers word écrite dans excel.

J'aimerais faire la même chose pour imprimer un fichier pdf mais je ne sais pas comment faire. ça ne marche pas. apparemment il ne faut pas utiliser la commande printout pour imprimer un pdf
Pouvez vous m'aider s'il vous plait?
Cordialement

Sub ImprimerWordViaVBAEXCEL()
Dim WordObj As Object
On Error Resume Next
Set WordObj = CreateObject("Word.Application")
Word.documents.Open "C:\essai"
Word.ActiveDocument.PrintOut
Word.ActiveDocument.Close
End Sub

dezbut · Accepted Answer

Bonjour, 
Utilise ça :

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

et

ShellExecute 0, "print", "C:\ABC.pdf", "", "", 0

radcur · Answer

salut

vérifie du côté de l'API shellexecute.

Il y a plusieurs exemples dans les codes sources et même du coté Codyx me semble avoir deja vu du code

sdfred · Answer

Merci j'ai essayé de faire un programme mais j'ai du mal:
Pour le fichier ABC.pdf, si j'écris:

Sub essai()
Dim AcroApp          As CAcroApp



Set AVDoc = CreateObject("AcroExch.AVDoc")
Call AVDoc.Open("C:\ABC.pdf", "")
Shell ("C:\Program Files\Adobe\Acrobat 7.0\Reader" & "AcroRd32.exe /p """ & "C:\ABC.pdf" & """")
End Sub



Il va m'ouvrir le fichier en question et m'ouvrir aussi le menu pour l'imprimante.
Par contre il faut que je clique sur "OK" pour lancer l'impression..y a t'il un moyen d'éviter cela?
Comment fermer le fichier apres impression?


en te remerciant par avance

sdfred · Answer

Salut
je te remercie c'est parfait. ça marche.
est ce que tu saurais par hasard ou je peux trouver la commande qui choisi l'imprimante par défaut de windows et comment définir tous les parametres (A3,A4,Recto,RectoVerso...)
Selon le pdf je dois imprimer selon différents formats.
Merci encore

dezbut · Answer

Euh... Je ne me suis jamais posé la question en fait pour les formats A3.
Mais il me semble (c'est peut être pas ce que tu recherches) que ces paramètres peuvent se régler manuellement sans passer par VBA. Il faut aller dans les options d'impressions...
Pour automatiser ça, essaye de voir avec winspool.drv mais comme ça, je ne peux rien te dire de plus...

sdfred · Answer

Salut,


Oui effectivement, je veux automatiser cela. 


Au travail, je dois sortir parfois une centaine de documents. Il y en a certains qui doivent être en A4 recto d'autres en A3 RectoVerso...c'est pas évident puisque chaque imprimante a son propre logiciel de configuration..


Je vais ouvrir une nouvelle discussion dans le forum.


Merci encore


Bon WE

dezbut · Answer

Bonjour,

Pour que le format du papier soit A3, utilise ça :
Activesheet.Pagesetup.PaperSize = xlPaperA3

Pour retourner au format A4 évidemment la propriété doit devenir xlPaperA4

Je crois (sans grandes convictions) que pour le recto verso il faut utiliser ça, mais je n'ai pas de quoi essayer :
Activesheet.PrintOut ManualDuplexPrint:=True

dezbut · Answer

En fait la dernière ligne ne fonctionne que sous EXCEL 2007 d'après un collègue...

sdfred · Answer

Merci, mais ça ne paramètre que l'imprimante pour excel.
Si j'imprime mon pdf via shellexecute, il ne prendra pas en compte que les parametres de l'imprimante par défaut. 
Il ne prendra pas en compte les parametres de l'imprimante pour excel.
en fait il faudrait trouver une commande shell et peut etre sendkeys (?) pour paramétrer l'imprimante??

dezbut · Answer

Eh oui c'est vrai, désolé...

Il y a toujours moyen de s'en sortir avec des sendkeys, mais c'est pas super élégant, ça fait un peu bricolo et puis ça ne marche pas toujours de la même manière sur toutes les machines...

sdfred · Answer

je pense que c'est impossible..
tu peux récupérer des infos sur l'impression, le nom de l'imprimante.
Mais pour la paramétrer je ne vois pas comment vba (ou un autre language) pourrait le faire

Imprimer une liste de fichiers pdf et word via vba excel

11 réponses

Votre réponse

Discussions similaires