Discussion :

[Tempus01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Phil Rob]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Tempus01]

Bonjour Phil Rob,

Merci pour votre aide

Je viens de tester votre code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Phil Rob]

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.




...

[Tempus01]

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.

[Phil Rob]

Voici ...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare

suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et puis, là ou tu veux imprimer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 ...

[Tempus01]

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 ?

[Phil Rob]

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

[Tempus01]

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