Discussion :

[Kcirtap]

Bonjour à toutes et à tous !

Dans mon application, je dois lister les imprimantes installées sur le poste où elles sont installées et choisir l'une d'entre elles pour imprimer un document Excel.

Je n'ai pas de problème pour lister les imprimantes avec le code suivant :

Code :

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

1
2
3
4
5
6
 
            string imprimantesInstallees = "" ;
 
            for (int i=0 ; i < PrinterSettings.InstalledPrinters.Count ; i++)
                imprimantesInstallees += PrinterSettings.InstalledPrinters[i] + "
 " + PrinterSettings. + "\n" ;

La liste des imprimantes apparaît ainsi :

\\serveurImpression1\FieryRezPS
\\serveurImpression1\MY10001
\\serveurImpression1\SC10002
\\serveurImpression2\Fiery2ePS
\\serveurImpression2\MY20001
\\serveurImpression2\MY20041PCL
\\serveurImpression2\MY20041PS
\\serveurImpression2\SC20001
Acrobat PDFWriter
Acrobat Distiller

Alors que dans Excel, lorsque j'enregistre une macro, le nom de l'imprimante choisie apparaît ainsi :

Application.ActivePrinter = "\\serveurImpression1\SC20001 sur Ne08:"

Evidemment, si je ne mets pas la partie "sur Ne08:" lorsque j'essaie d'imprimer via mon code, cela ne fonctionne pas.

Comment puis-je faire pour retrouver sur quel réseau se trouve l'imprimante :

Bonne journée

A plus

[neguib]

Active Directory

[Kcirtap]

Salut Neguib,

je te remercie pour ta réponse.

Pour faire plus simple qu'accéder à un annuaire, saurais-tu s'il est possible d'obtenir les printerInfo avec .Net ?

A plus

[neguib]

Je sais pas trop as-tu fouillé les Membres de PrinterSettings

[Kcirtap]

Ce n'est pas grave.

J'ai effectivement fouillé les membres de la classe PrinterSettings et il apparaît qu'elle ne fournit que les éléments que tu peux trouver dans une boîte de dialogue "Imprimer" classique.

Je vais essayer de faire autrement.

Merci

[Kcirtap]

Active Directory

En fait, je croyais que cela ne serait pas trop grave, mais j'ai l'impression que la partie "sur Ne01:" change dynamiquement (par exemple, cela peut être une fois "sur Ne05:", une autre fois "sur Ne08:").
Je ne peux de ce fait pas inscrire cette partie en dur dans mon code...

Si je comprends bien, à l'aide de l'annuaire, je vais pouvoir déterminer sur quel réseau se trouve mon imprimante, est-ce correct :

[Jerry16]

Active Directory

En fait, je croyais que cela ne serait pas trop grave, mais j'ai l'impression que la partie "sur Ne01:" change dynamiquement (par exemple, cela peut être une fois "sur Ne05:", une autre fois "sur Ne08:").
Je ne peux de ce fait pas inscrire cette partie en dur dans mon code...

Si je comprends bien, à l'aide de l'annuaire, je vais pouvoir déterminer sur quel réseau se trouve mon imprimante, est-ce correct :

Bonjour Kcirtap

j'ai exactement le meme problème que toi, et je ne trouve pas de solution, merci de me prevenir si tu trouve un moyen.

[Kcirtap]

Salut,

j'ai un début de solution.

Celle-ci ne se base pas sur ActiveDirectory, mais sur le registre de Windows.

Dans la clef

Code :

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

HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices

je trouve une liste de valeur de toutes les imprimantes installées sur le poste de travail sur lequel je me trouve.

Pour chaque valeur, le nom correspond à celui de l'imprimante, et dans la valeur, tu retrouves

Code :

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

winspoo,Ne01:

Je pense que cela peut être une piste, mais je ne peux pas te dire si cette solution est vraiement valable.

Par contre, pourrais-tu me confirmer que tu retrouves les imprimantes installées sur ton poste dans la même clef :

A plus

Patrick

[neguib]

Par contre, pourrais-tu me confirmer que tu retrouves les imprimantes installées sur ton poste dans la même clef :

oui

[Jerry16]

Bonjour,

En cherchant un peu partout sur le net, j'ai trouvé un bout de code, qui m'a permis de trouver une solution à mon problème .

Une 1 ere Macro te permet de connaitre le nom de tes imprimantes en reseau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub NomImprimanteReseau()
  Dim Msg As String
  With CreateObject("WScript.Network").EnumPrinterConnections
    For iCount = 0 To .Count - 1 Step 2
      Msg = Msg & .Item(iCount + 1) & " sur port: " & .Item(iCount) & vbLf
    Next
  End With
  MsgBox Msg
End Sub

Une deuxieme macro te permet d'imprimer sur chacune d'elle

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
 
Sub DefaultPrinter()
  With CreateObject("WScript.Network")
 
    .SetDefaultPrinter "4039 PS" 'sur port: 192.1.20.42:LPT1"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    .SetDefaultPrinter "OPT-S16" 'sur port: 192.1.20.44:LPT1"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    .SetDefaultPrinter "LEX-CONTREMAITRE" ' sur port 192.1.20.32:LPT1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
  End With
End Sub

J'ai supprimé la réference du port et voila.
Enfin, ça marche pour moi, et j'espere que pour toi aussi.

@++++

[Kcirtap]

En fait, j'ai trouvé LA solution à mon problème.

Comme j'utilise Excel et que l'application tourne en arrière plan, il y a moyen de n'afficher que la boîte de dialogue "Imprimer" d'Excel.

Voici le code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
using Excel ;
 
xlApplication = new Excel.ApplicationClass() ;
 
// ouverture du fichier Excel
xlApplication.Workbooks.Open(@"c:\test.xls",
    2,
    true,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing,
    oMissing) ;
 
// affichage de la boîte de dialogue Imprimer d'Excel
xlApplication.Application.Dialogs.get_Item
(XlBuiltInDialog.xlDialogPrint).Show(Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing,
    Type.Missing) ;

A noter que ce code fonctionne même lorsque l'application Excel n'est pas visible :

Code :

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

1
2
 
xlApplication.Visible = false ;

En espérant que cela puisse servir à d'autres.

Bonne fin de semaine à tous