Code impression multiple

[Julien42]

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

[loufab]

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,

[Julien42]

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+