Comment imprimer un fichier pdf et refermer acrobat reader
3 réponses
Nico
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un
fichier pdf stocké sur mon disque en toute transparence pour l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier :
ThisWorkbook.FollowHyperlink "C:\Temp\test.pdf"
Et c'est ensuite que cela se complique :
- je n'arrive pas à lancer l'impression.
j'ai essayé un SendKeys "^P", mais il ne se passe rien
- je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ???
(ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Il faut faire patienter les applis avec SendKeys:
Application.DisplayAlerts = False ThisWorkbook.FollowHyperlink "C:Temptest.pdf" ' attends l'ouverture complete d'Acrobat Application.Wait Now + TimeValue("00:00:04") 'Imprime SendKeys "^{p}", True Application.Wait Now + TimeValue("00:00:02") 'lValide l'impression par Entree Application.SendKeys ("^;{ENTREE}") Application.Wait Now + TimeValue("00:00:0") 'et quitte SendKeys "^{q}", True
-- Daniel =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel FAQ MPFE =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm
"Nico" a écrit dans le message de news:
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un fichier pdf stocké sur mon disque en toute transparence pour l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier : ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique : - je n'arrive pas à lancer l'impression. j'ai essayé un SendKeys "^P", mais il ne se passe rien - je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ??? (ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Merci par avance.
NICO
Il faut faire patienter les applis avec SendKeys:
Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
' attends l'ouverture complete d'Acrobat
Application.Wait Now + TimeValue("00:00:04")
'Imprime
SendKeys "^{p}", True
Application.Wait Now + TimeValue("00:00:02")
'lValide l'impression par Entree
Application.SendKeys ("^;{ENTREE}")
Application.Wait Now + TimeValue("00:00:0")
'et quitte
SendKeys "^{q}", True
--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm
"Nico" <nicolo_NOSPAM_69@free.fr> a écrit dans le message de news:
ei6sSs0FFHA.228@TK2MSFTNGP15.phx.gbl...
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un
fichier pdf stocké sur mon disque en toute transparence pour
l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime
et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier :
ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique :
- je n'arrive pas à lancer l'impression.
j'ai essayé un SendKeys "^P", mais il ne se passe rien
- je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ???
(ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Application.DisplayAlerts = False ThisWorkbook.FollowHyperlink "C:Temptest.pdf" ' attends l'ouverture complete d'Acrobat Application.Wait Now + TimeValue("00:00:04") 'Imprime SendKeys "^{p}", True Application.Wait Now + TimeValue("00:00:02") 'lValide l'impression par Entree Application.SendKeys ("^;{ENTREE}") Application.Wait Now + TimeValue("00:00:0") 'et quitte SendKeys "^{q}", True
-- Daniel =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel FAQ MPFE =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm
"Nico" a écrit dans le message de news:
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un fichier pdf stocké sur mon disque en toute transparence pour l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier : ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique : - je n'arrive pas à lancer l'impression. j'ai essayé un SendKeys "^P", mais il ne se passe rien - je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ??? (ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Merci par avance.
NICO
Daniel.j
Manquait un p'tit 2 ici: Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys ("^;{ENTREE}") ******* Application.Wait Now + TimeValue("00:00:0")********* 'et quitte SendKeys "^{q}", True Daniel
"Nico" a écrit dans le message de news:
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un fichier pdf stocké sur mon disque en toute transparence pour l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier : ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique : - je n'arrive pas à lancer l'impression. j'ai essayé un SendKeys "^P", mais il ne se passe rien - je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ??? (ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Merci par avance.
NICO
Manquait un p'tit 2 ici:
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys ("^;{ENTREE}")
******* Application.Wait Now + TimeValue("00:00:0")*********
'et quitte
SendKeys "^{q}", True
Daniel
"Nico" <nicolo_NOSPAM_69@free.fr> a écrit dans le message de news:
ei6sSs0FFHA.228@TK2MSFTNGP15.phx.gbl...
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un
fichier pdf stocké sur mon disque en toute transparence pour
l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime
et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier :
ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique :
- je n'arrive pas à lancer l'impression.
j'ai essayé un SendKeys "^P", mais il ne se passe rien
- je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ???
(ma version d'Acrobat Reader est la 6.0, et Excel 2000)
Manquait un p'tit 2 ici: Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys ("^;{ENTREE}") ******* Application.Wait Now + TimeValue("00:00:0")********* 'et quitte SendKeys "^{q}", True Daniel
"Nico" a écrit dans le message de news:
Bonjour à vous tous,
Je travaille sur une "petite" macro qui doit à un moment donné imprimer un fichier pdf stocké sur mon disque en toute transparence pour l'utilisateur.
C'est à dire que la macro ouvre le fichier dans Acrobat Reader, l'imprime et
referme Acrobat Reader.
J'ai le code pour ouvrir ce fichier : ThisWorkbook.FollowHyperlink "C:Temptest.pdf"
Et c'est ensuite que cela se complique : - je n'arrive pas à lancer l'impression. j'ai essayé un SendKeys "^P", mais il ne se passe rien - je n'arrive pas à refermer la fenêtre d'Acrobat Reader
Quelqu'un pourrait-il m'aider ??? (ma version d'Acrobat Reader est la 6.0, et Excel 2000)