Discussion :

[nounous54]

Bonjour à tous,

J'ai un souci que je n'arrive à résoudre malgré les FAQ...

J'ai un formulaire qui reprend les infos d'un adhérent lors d'une inscription.
Quand je valide l’inscription, j’enregistre toutes les infos mais je souhaiterais également imprimer un document PDF qui se trouve sous le chemin :"D:\GESTION_STN\CERFA_don.pdf"

j'ai utilisé le code que j'ai trouvé sur le site mais je n'arrive pas l'utiliser correctement.

J'ai mis ce code ci-dessous dans un module (Module 1).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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
 
Public Sub imprimer_fichier(Chemin As String, règlement_de_don As Form)
 
'Imprimer le fichier dont le chemin est passé en paramètre
ShellExecute règlement_de_don.hwnd, "print", "D:\GESTOCK_STN\CERFA_Don.pdf", "", "", 1
 
End Sub

Ensuite j'ai mis ce code dans mon formulaire (dans le code de mon bouton enregistré)

Code :

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

1
2
3
 
   Dim chemin_CERFA, nom_fichier, Chemin As String
        Call imprimer_fichier(Chemin, Me)

au finale, je n'ai pas d'erreur mais le document PDF ne s'imprime pas.
Il s'ouvre mais ne s'imprime pas.

Moi je souhaiterais qu'il s'imprime en arrière plan...
A défaut, qu'il s'ouvre, s'imprime et se referme.

Merci par avance pour votre aide.

Bonne journée

[User]

Bonsoir,

Il faudrait vérifier la valeur retournée par la fonction shellexecute, pour identifier le problème :

shellexecute

Cdlt,

[kiki29]

Salut, s'il s'agit d'imprimer un pdf sur une imprimante physique ( style Epson,HP etc ) le pdf n'a pas à apparaitre. L'imprimante physique doit être définie comme imprimante par défaut. Sinon il y a un problème de vocabulaire.

[nounous54]

Bonjour kiki,
Alors oui c'est une imprimante physique (EPSON) et oui elle est définit comme imprimante par défaut.
Pourtant le code m'ouvre le PDF et ne me l'imprime pas.
???

[nounous54]

Bonjour
J'ai fais le test que USER m'a demandé, et le résultat de shellexecute est 42....
Malheureusement le code n'est pas (ça s'arrête à 31 !!!)
Quelqu'un peut m'aider?

http://access.developpez.com/faq/?pa...n#shellexecute

[kiki29]

Re, avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
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 Const SW_SHOWNORMAL = 1
 
Sub Tst()
Dim sFichier As String, hwnd As Long
    sFichier = "E:\catalogue Pivotage.pdf"
    ShellExecute hwnd, "Print", sFichier, 0&, 0&, SW_SHOWNORMAL
    Sleep 5000
    KillAcrobat
End Sub
 
Private Sub KillAcrobat()
Dim RetVal As Long
    RetVal = Shell("Taskkill /im Acrobat.exe /f", 0)
End Sub

J'obtiens cela.

[nounous54]

Bravo....
Ça fonctionne.
Il manquant juste le public devant le Sub Tst ()...
erreur de copier coller je pense...
Merci beaucoup