Discussion :

[nicolas2603]

Bonjour ! J'utilise le code trouvé ici (Comment ouvrir un fichier en utilisant l'exécutable associé) pour imprimer des pdfs depuis mon formulaire. J'essaye de faire en sorte qu'une fois que l'impression est lancée, l'exécutable qui s'est ouvert pour lire le pdf se referme. Pour ça j'ai codé ainsi :

Code :

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

1
2
3
4
Private Sub cmdImprimer_Click()
    ShellExecute Me.hwnd, "open", CurrentProject.Path & "\PDFs\F-" & indiceFiche & ".pdf", "", CurrentProject.Path, 1
    KillApp (Me.hwnd)
End Sub

où la fonction kill correpond à celle-ci (Comment fermer un programme ouvert avec la fonction Shell). Cependant ça n'a pas l'air de fonctionner. Il est indiqué qu'on peut utiliser la valeur renvoyée par la fonction Shell() comme identifiant de programme, moi j'ai mis Me.hwnd, mais j'ai essayé aussi avec les autres paramètres et rien ...! Où est-ce que je me trompe ? Merci d'avance.

[Invité]

Bonjour

Si tu veux juste imprimer, une petite variante

Comment imprimer un document sans pour autant ouvir l'application associée


Starec

[nicolas2603]

Salut, c'est effectivement la même méthode que j'ai utilisé, sauf que ça m'ouvre Acrobat Reader pour imprimer !

[Invité]

Salut, c'est effectivement la même méthode que j'ai utilisé, sauf que ça m'ouvre Acrobat Reader pour imprimer !

Regardes bien le lien, les paramètres de la chaine sont différents d'une ouverture.

Starec

[nicolas2603]

Je note que j'ai fait une erreur, je n'ai pas copié le bon code dans mon post au desssus. Bien entendu ma fonction utilise print et non open, et il me semble que c'est le seul paramètre qui change non ?

[nicolas2603]

Bon j'ai recommencé et recommencé mon code mais toujours pareil, lorsque je clic sur le bouton imprimer j'ai Adobe Acrobat Pro qui se lance mais reste vide, on ne voit pas le PDF s'afficher, mais il s'imprime. Mon code est :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Private 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
----------------------
 
Private Sub cmdImprimer_Click()
    ShellExecute Me.hwnd, "print", CurrentProject.Path & "\PDFs\F-" & indiceFiche & ".pdf", "", CurrentProject.Path, 1
End Sub

Donc est-ce que ça vient du fait que c'est Acrobat Pro et non Reader que l'application se lance ?

[Invité]

Re

C'est possible, essaye de changer dans les options des dossiers que ce soit le reader qui ouvre les Pdf et non le pro pour voir.

Starec

[nicolas2603]

Hum, j'ai paramétré pour que mes PDF s'ouvrent par défaut avec Reader dans le PC, mais dans mon programme ça continu à être imprimé par Pro ! C'est bizarre ça !

[Invité]

Re

Effectivement, c'est bizarre.

Peut-être que Acrobat Pro prend le pas sur le reader qu'elle soit le coix des options des dossiers.

Fais un essai avec un fichier Word pour voir si cela fonctionne correctement.

Starec

[nicolas2603]

Ouaip ça m'ouvre Word, ça imprime puis ça referme Word tout seul. Donc je pense que ça vient de Acrobat Pro ... Du coup c'est super chiant si j'installe l'applic sur un poste qui dispose d'Acrobat Pro, ça va faire pareil !

[Invité]

Re

C'est pour cela que je voulais que tu essayes avec un autre fichier. Cela signifie donc que ce serait AcrobatPro qui fout la M....E.

Je ne l'utilise pas, j'utilise PDF Creator pour gérer mes PDF et Foxit Reader pour les lire.

As-tu essayé sur le site d'Abode, ils doivent avoir une FAQ.

Starec

[nicolas2603]

Non je n'ai pas essayé sur le site d'Adobe, je regarderai lundi; mais entre nous il y a de grandes chances que les postes qui recevront mon appli ne possèdent pas la version Pro d'Acrobat. D'ailleurs, est-ce que c'est possible, à l'installation du programme, de verifier si ils ont le Reader, et de l'installer automatiquement (setup sur le cd) le cas échéant ?

[=JBO=]

Bonjour,

Contournement un peu simpliste, on peut cacher la fenêtre de l'application, en donnant la valeur 0 (au lieu de 1) au paramètre nShowCmd de la fonction ShellExecute.
Mais l'application ne devrait pas être stoppée après l'impression.

Alors tu as la solution basée sur l'API ShellExecuteEx qui permet de connaître la processus lancé par le Shell.

[nicolas2603]

Salut ! Intéressant, je vais me pencher dessus. Merci.