Comment trouver tout les ports des imprimantes installees sur une station

Kamie

Bonjour,

J'ai un combo box qui voit tout les imprimantes installer sur ma station de travail.

Il y a des imprimante local et des imprimantes réseaux.


j'aimerais lorsque je choisi une imprimante dans le combo box qui imprime sur cette imprimante .


Voici le code du combo box.

private sub cboPrinter_click

Static Active As Boolean

If not active Then
active = true
If cboPrinter.listIndex = -1 then
Prtoption.sprintername = Printers(cboPrinter.listindex).
devicename

end if
active = False

end if
doEvents

end sub


J'ai un bouton commande imprimer qui est supposé imprimer sur l'imprimante que l'utilisateur aura sélectionner dans le combo box. mais je ne sais pas comment l'attitrer.


je me suis dépanné avec une commande shell qui appel une batch file.

cette batch file a besoin du nom de l'imprimante, de la queu d'impression et du port.

Mont problème est que je ne sais pas comment faire si c'est une imprimante locale et quelle commande qui me permet de trouver le port sur laquelle l'imprimante est installé


MErci de bien vouloir prendre un peu de temps à ma demande

Dim X As Printer
For Each X In Printers
If X.DeviceName = cboPrinter.Text Then
Set Printer = X
Exit For
End If
Next


-------------------------------
Réponse au message :
-------------------------------

> Kamie
>
> Bonjour,
>
> J'ai un combo box qui voit tout les imprimantes installer sur ma station de travail.
>
> Il y a des imprimante local et des imprimantes réseaux.
>
>
> j'aimerais lorsque je choisi une imprimante dans le combo box qui imprime sur cette imprimante .
>
>
> Voici le code du combo box.
>
> private sub cboPrinter_click
>
> Static Active As Boolean
>
> If not active Then
> active = true
> If cboPrinter.listIndex = -1 then
> Prtoption.sprintername = Printers(cboPrinter.listindex).
> devicename
>
> end if
> active = False
>
> end if
> doEvents
>
> end sub
>
>
> J'ai un bouton commande imprimer qui est supposé imprimer sur l'imprimante que l'utilisateur aura sélectionner dans le combo box. mais je ne sais pas comment l'attitrer.
>
>
> je me suis dépanné avec une commande shell qui appel une batch file.
>
> cette batch file a besoin du nom de l'imprimante, de la queu d'impression et du port.
>
> Mont problème est que je ne sais pas comment faire si c'est une imprimante locale et quelle commande qui me permet de trouver le port sur laquelle l'imprimante est installé
>
>
> MErci de bien vouloir prendre un peu de temps à ma demande
>
>