Imprimer plusieurs fichier pdf en un clic

[RONIBO]

Bonjour,

J'aimerais comme je l'ai précisé dans le titre imprimer des fichiers pdf (si possible sans les ouvrir) en un clic.

J'ai deux dossiers ou se trouvent les devis et facture au format pdf.

J'ai créée une listbox qui va me permettre de choisir les documents à imprimer.

Voici un bout de fichier à extraire dans c: svp

Merci d'avance aux personnes qui viendrons à mon soutien 🙂

Bonne journée

 

[Lone-wolf]

Re : Imprimer plusieurs fichier pdf en un clic

Bonsoir Ronibo,

peut-être une réponse ici EXCELFORUM , mais tu dois t'inscrire pour voir le code proposé.



A+ 😎

 

[RONIBO]

Re : Imprimer plusieurs fichier pdf en un clic

Bonsoir,

Merci pour ton aide 🙂

C'est un site en anglais ! Je suis pas trop doué lol

 

[Lone-wolf]

Re : Imprimer plusieurs fichier pdf en un clic

Re Ronibo,

et la traduction sur Google alors??? 😉
tu visualise en français et si utile, tu copie le code.

A+ 😎

 

[RONIBO]

Re : Imprimer plusieurs fichier pdf en un clic

Bonjour,

J'ai tester le code du forum que vous m'avez proposé, et malheureusement ca ne fonctionne pas 🙁

Option Explicit
Public 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 Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Sub testPrint()
Dim printThis
Dim strDir As String
Dim strFile As String
strDir = "FOLDER ROOT"
strFile = "FILE NAME WITH EXTENTION"

printThis = PrintThisDoc(0, strDir & "\" & strFile)

End Sub

Vous avez une idée?

A+