Convertir un fichier au format XPS sans boite de dialogue
Bonjour,
je développe actuellement un serveur d'edition et je suis confronté à un petit problème .
Je souhaiterais pouvoir voir tous ce qui se passe au niveaux des imprimantes de mon serveur par le code et gérer l'état de l'édition (plus de papier, plus d'encre, et bien d'autre chose encore) VB.
Il me fallait donc utilisé les classe "PrintServer" , "PrintQueue" d'après ce que je comprend du fonctionnement
il ne prend en charge que les fichiers au format XPS (je préfère détailler ma démarche afin de savoir si je suis sur la bonne voie :?),
pour cela j'essaie d'imprimer sur l'imprimante "Windows Microsoft XPS Document Writer" mais il faudrait qu'aucune boite de dialogue ne s'affiche et que je puisse donner le chemin d'impression directement dans le code.
voici le petit test que j'ai effectué.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim stringImp As String = "Microsoft XPS Document Writer"
Dim FichierImp As String = "C:\selectlife\test.txt"
Dim ServPrint As PrintServer = New PrintServer()
Dim PRINTQUE_2 As PrintQueue = New PrintQueue(ServPrint, stringImp)
Dim PintJobInf As PrintSystemJobInfo = Nothing
If PRINTQUEU.IsPublished Then
PintJobInf = PRINTQUE_2.AddJob("test.txt", FichierImp, True)
End If |
Merci
