Code impression multiple

Bonjour à tous,

après une recherche sur la faq j'ai trouvé le code ci-après qui fonctionne parfaitement et qui me permet d'imprimer des fichiers pdf contenus dans un répertoire spécifique. Voici le code :

Code:

---

1 2 3

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

---

Code:

---

1 2 3 4 5

Private Sub Commande4_Click()   ShellExecute Me.hwnd, "print", Texte1, "", "", 1   End Sub

---

Pour ce faire j'ai créé une requête qui suivant mes critères me permet de voir les pdf à imprimer. En moyenne je visualise 4 à 5 fichiers pdf. J'ai fait apparaitre ce résultat dans un sous formulaire et lorsque je selectionne une ligne je n'ai plus qu'à cliquer mon bouton pour imprimer le pdf de la ligne sélectionnée.
Voila mon besoin, j'aurai aimé pouvoir imprimer tous les pdf sans avoir à sélectionner ligne par ligne dans le sous formulaire. Quelqu'un aurait il une idée sur le moyen nécessaire pour réaliser cela ?

Espérant avoir été le plus explicite possible, merci à vous et bon week end

Bonjour,

Une simple boucle sur le recordset. Par exemple :

Code:

---

1 2 3 4 5 6

dim rst as recordset set rst = me.recordset while not rst.eof commande d'impression du pdf wend set rst = nothing

---

Cordialement,

effectivement, en plus c'est tout bête. Je n'y ai pas pensé. Merci beaucoup je vais essayer cela dès que possible. Je vous tiens au courant

A+