Bonjour,
Je souhaite imprimer plusieurs PDF à la suite sans interruption, pas d'ouverture d'Acrobat ou autre.
J'ai ce code:
J'ai essayé plusieurs modification mais je ne trouve pas comment empêcher cette ouverture pour que mes impressions s'effectuent à la chaîne..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Private Sub print(ByVal chemin As String) Dim Printer_Name As String = "" Dim pathFile As String = chemin Dim Prt_Proc As New Process ' imprime selon l'extension Try Prt_Proc.StartInfo.FileName = pathFile ' ' Selon type de fichier (print OU printTo) Prt_Proc.StartInfo.Verb = "PrintTo" 'Prt_Proc.StartInfo.Verb = "Print" ' ' Prt_Proc.StartInfo.CreateNoWindow = False Prt_Proc.StartInfo.Arguments = "" & Printer_Name & """""" Prt_Proc.StartInfo.UseShellExecute = True Prt_Proc.Start() Prt_Proc.WaitForExit() Prt_Proc.Dispose() Catch ex As Exception Prt_Proc.Dispose() MsgBox(Err.Number & " " & Err.Description) End Try End Sub
Merci pour votre aide!
Partager