Impression multiple d'un document

Version imprimable

Bonjour,

Je voudrais lancer automatiquement en vb l'impression d'un document et qu'il imprime X copie de ce document

J'ai trouvé cela, mais cela ne fait qu'une impression

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Dim Prt_Proc As New Process ' imprime selon l'extension
 
        Try
            Dim Printer_Name As String = ""
            Dim pathFile As String = "\\195.150.195.12\commun\Etiquette\Etiquettes2\5151\FAA5151A90.LAB"
            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 = True
            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

J'ai essayé de mettre plusieurs Prt_Proc.Start() à la suite pour imprimer plusieurs fois le document, j'imprime bien plusieurs fois mais entre chaque impression il me demande la confirmation pour enregistrer le fichier.

Existe-t-il un paramètre pour lancer plusieurs impression ?
Ou une autre méthode ?

Merci d'avance

24/02/2017, 16h19
jopopmk

Salut,

j'ai fait un "print /?" et la commande ne semble pas permettre l'impression multiple. J'ai pas de "printto" a priori (Win7 64).
Peut-être auras-tu plus de chance en utilisant une fonctionnalité du framework ?
Il y a par exemple la classe PrintDocument, qui possède une propriété PrinterSettings qui possède une propriété Copies.
J'ai jamais utilisé ces objets, donc je sais pas si je t'envoie sur une bonne piste, mais ça semble cohérent.

PS : utilise les balises CODE pour tes extraits de code, ça fera une mise en forme/coloration syntaxique qui faciliteront grandement la lecture.
24/02/2017, 16h55
thierry007

Bonjour

Tu peux utiliser PrintPage de printdocument dans le quel tu places ce qui doit être imprimer

a la fin n'oublie pas de mentionner la fin de document avec e.HasMorePages = False

Tu a d'autre objets intéressants dans la toolsBox
01/03/2017, 07h17
hexen

Bonjour,

Merci, mais printdocument n'est pas ce qu'il me faut. Avec printdocument on génère la page a imprimer dans le programme VB, alors que je cherche à déclencher une impression multiple à partir d'un autre programme.

Avec le process défini par startinfo et lancé par start, j'arrive à ouvrir ou imprimer une fois le document dans son application, mais pas lancer plusieurs impressions en une fois.