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 ?