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).
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
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
au finale, je n'ai pas d'erreur mais le document PDF ne s'imprime pas.
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)
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
Partager