Discussion :

[Spanish_]

Bonjour,

Dans mon application sous access, j'ai pu grace à une API windows récupérer toutes les imprimantes installées sur le pc de l'utilisateur.

Dans un formulaire, je liste toutes les imprimantes de ma table "Impr".

L'utilisateur peut cocher l'imprimante sur laquelle il veut imprimer l'état.

Mon souci c'est que je ne sais pas comment faire pour l'impression se lance sur l'imprimante choisie ET bien sur sans que celle-ci devienne imprimante par défaut?????


PAr avance merci.

[Spanish_]

Bonjour,

Bon j'ai trouvé une partie de la solution de mon problème;

A savoir récupérer dans une combobox, la liste des imprimantes installées sans changer l'imprimante par défaut.
De plus, je supprime de la liste une imprimante "impr1".

voici le bout de code utilisé:

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
Private Sub Form_Load()

Dim prt As Printer

Me.lstPrinters__.RowSourceType = "Value List"
For Each prt In Application.Printers
lstPrinters__.AddItem prt.DeviceName
Next prt

Me.lstPrinters__.RemoveItem ("impr1")

End Sub

Private Sub cmd_impr_Click()


Application.Printer = Application.Printers(Me.lstPrinters__.Value)
Set prt = Application.Printers(Me.lstPrinters__.Value)
Report_etat1.Printer.Orientation = acPRORLandscape
DoCmd.OpenReport "etat1",  acHidden

DoCmd.Close acForm, "Choix Imprimante", acSaveNo
DoCmd.Close acReport, "etat1", acSaveNo

Mais voilà si un utilisateur d'un autre PC, n'a pas l'imprimante "impr1" d'installée sur son poste, il ya un message d'erreur disant que l'imprimante "impr1" n'a pas été trouvé. LOGIQUE.

Que puis-je mettre dans mon IF si je veux que cela fonctionne sur n'importe quel poste, imprimante "impr1" installée ou non?

Merci d'avance

Merci d'avance.

[Spanish_]

Personne n'a une idée?

[Spanish_]

Bonjour, j'ai trouvé la solution.

il fallait faire une boucle for qui parcoure toutes les occurences de ma combobox.

A l'intérieur de cette boucle, un IF qui permet passer une variable à 1 si l'imprimante à masquée est trouvée.

Après la boucle FOR, un IF qui permet d'enlever l'imprimante si elle a été trouvée (var1 =1).

Ainsi, meme si une autre personne utilise mon application sur un autre poste, n'ayant pas les même noms d'imprimantes dans la blacklist, il n'aura pas un message bloquant.