Imprimer un fichier dont le chemin est dans une variable.

Bonjour le Forum,

Pouvez-vous m'aider, je souhaite imprimer un fichier PDF dont le chemin est dans une variable et en laissant le choix de l'imprimante à l'utilisateur.

Code:

---

Chemdoss = IO.Path.Combine("\\mon chemin" , TextBox2.Text , TextBox3.Text , TextBox4.Text , TextBox5.Text , TextBox6.Text & "M32-code.Pdf")

---

Beaucoup d'exemples sont sur le net, mais je ne trouve rien qui fonctionne pour mon ce cas de figure, merci pour votre aide.

Bonjour,

Code:

---

Process.Start("NomDeTonReaderParDefaut", "/s /h /p CheminEtNomCompletDuPDF")

---

Exemple :

Code:

---

Process.Start("AcroRd32.exe", "/s /h /p D:\ES\Test.pdf")

---

Selon le code que tu as posté, cela devrait être ceci si ton reader est bien AcrobatReader :

Code:

---

1 2 3

Chemdoss = IO.Path.Combine("\\mon chemin" , TextBox2.Text , TextBox3.Text , TextBox4.Text , TextBox5.Text , TextBox6.Text & "M32-code.Pdf") Process.Start("AcroRd32.exe", "/s /h /p " & Chemdoss)

---

Bon dimanche ... :D

Bonjour Phil Rob,

Merci pour votre aide

Je viens de tester votre code,

Code:

---

Process.Start("AcroRd32.exe", "/s /h /p " & Chemdoss)

---

une fenêtre s'affiche me demandant la destination puis cela copie le fichier PDF sous le chemin qui été choisi, mais cela n'imprime pas le pdf.

J'ai peut-être louper quelque chose.

A coup sûr, c'est parce que l'imprimante par défaut de ton système est "Adobe PDF". Pour que le fichier soit réellement imprimé sur du papier, il faut que l'imprimante par défaut soit une vraie imprimante. Il te faut donc changer d'imprimante par défaut avant d'exécuter cette commande.

A titre d'exemple, vois sur l'illustration suivante, mon imprimante par défaut est une HP et non AdobePDF.

Pièce jointe 604666


... :D

J'ai vérifier mon imprimante par défaut, c'est une bien imprimante physique "HP", ce qui est étrange c'est que cela me demande de rechercher un dossier pour enregistrer le pdf .

Ok cela fonctionne, j'avais fait une petite erreur de saisie, maintenant, je me demande si il est possible que l'utilisateur choisisse son imprimante.

Voici ...

Au début de ton Form (ou au moins en dehors de toute Sub), la ligne

Code:

---

Declare

---

suivante :

Code:

---

Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean

---

Et puis, là ou tu veux imprimer :

Code:

---

1 2 3 4 5 6 7 8 9

' ... ... ...   Dim MonImprimante As New PrintDialog MonImprimante.ShowDialog() SetDefaultPrinter(MonImprimante.PrinterSettings.PrinterName) Process.Start("AcroRd32.exe", "/s /h /p " & Chemdoss) MonImprimante.Dispose() ' ... ... ...

---

Ce dispositif remplace l'imprimante par défaut du système par celle choisie dans la boîte de dialogue :
Pièce jointe 604679
Mais attention, je crois me souvenir que si ton imprimante par défaut était AdobePDF, c'est parce que tu l'utilises pour créer les PDF. Il faut donc refaire le même codage avant la création d'un pdf mais cette fois, il faudra que l'utilsateur choisisse "Adobe PDF" :

• Mettre imprimante par défaut = AdobePDF pour créer le pdf
• Mettre imprimante par défaut = HP... pour imprimer sur la HP...

Remarque que j'ouvre la boîte de dialogue PrintDialog pour que l'utilisateur choisisse l'imprimante mais si tu connais le nom de cette imprimante, tu peux passer les lignes "MonImprimante..." et écrire directement :

SetDefaultPrinter(LeNomDeLImprimanteQujeTuSouhaites) ou SetDefaultPrinter("Adobe PDF"), selon le cas.

J'espère que ceci t'aidera ... :D

Merci beaucoup cela fonctionne grâce à vous, est-il possible de faire apparaitre un message qui indique si l'impression ne s'est pas faite ou alors si l'impression à réussi ?

Je crois pas qu'on puisse gérer les erreurs d'impression à cet endroit.
Je pense que c'est le système qui donnera un message à l'utilisateur.
Essai à faire :
Demander l'impression après avoir enlevé tout le papier de l'imprimante et voir ce qui se passe ....
Bonne soirée :)

c'est une bonne idée, je testerais demain au boulot.
encore merci, bonne soirée.:D