Discussion :

[Commandeur]

Bonjour ,

j'ai trouver comment oubliger access a prendre une imprimante specifique en code vba.

Mais mon soucis c'est quand je la lance mon impression et si mon imprimante
n'existe pas il me le balance sur une autre imprimante,

comment rajouter un message qui dit "imprimante non connecte" et arrete l'impression.

Voici mon code vba :

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
 
Private Sub Commande146_Click()
On Error GoTo Err_Commande146_Click
 
Dim NombreImp As Integer
Dim ImpCherche
 
NombreImp = Application.Printers.Count
For Each ImpCherche In Application.Printers
    If ImpCherche.DeviceName = "Epson stylus d78 series" Then
        Set Application.Printer = Application.Printers(NumIMP)
        Exit For
    End If
Next ImpCherche
 
    Dim stDocName As String
 
    stDocName = "ET-Etiquette prix"
    DoCmd.OpenReport stDocName, acNormal
 
 
Exit_Commande146_Click:
    Exit Sub
 
Err_Commande146_Click:
    MsgBox Err.Description
    Resume Exit_Commande146_Click
 
End Sub

si vous avez des ameliorations sur ce code je suis preneur

[Jean-Philippe André]

Bonjour,
en utilisant une variable de type booléen, que tu passeras à True si l'imprimante est bien saisie :

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
Private Sub Commande146_Click()
On Error GoTo Err_Commande146_Click
 
Dim NombreImp As Integer
Dim ImpCherche
Dim ImprimanteTrouvee As Boolean
 
NombreImp = Application.Printers.Count
ImprimanteTrouvee = False
For Each ImpCherche In Application.Printers
    If ImpCherche.DeviceName = "Epson stylus d78 series" Then
        Set Application.Printer = Application.Printers(NumIMP)
        ImprimanteTrouvee = True
        Exit For
    End If
Next ImpCherche
 
    Dim stDocName As String
If ImprimanteTrouvee Then
    stDocName = "ET-Etiquette prix"
    DoCmd.OpenReport stDocName, acNormal
Else
    MsgBox "Pas d'imprimante", VbCritical+VbOkOnly
End If
 
Exit_Commande146_Click:
    Exit Sub
 
Err_Commande146_Click:
    MsgBox Err.Description
    Resume Exit_Commande146_Click
 
End Sub

[Commandeur]

super , merci de ton aide sa marche nikel

Bon dimanche

[Commandeur]

bonjour,

j'ai un soucis avec ce code il ne marche plus sur les imprimantes en reseaux ou normale.

sa imprime sur la premier imprimante trouve. c'est tres bizzare

je comprend pas pourquoi?

comment je peut le prisiser?

ou et mon erreur?

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
 
Private Sub Commande143_Click()
On Error GoTo Err_Commande143_Click
 
 
 
Dim NombreImp As Integer
Dim ImpCherche
Dim ImprimanteTrouvee As Boolean
 
NombreImp = Application.Printers.Count
ImprimanteTrouvee = False
For Each ImpCherche In Application.Printers
    If ImpCherche.DeviceName = "Epson stylus d78 series" Then
        Set Application.Printer = Application.Printers(NumIMP)
        ImprimanteTrouvee = True
        Exit For
    End If
Next ImpCherche
 
    Dim stDocName As String
If ImprimanteTrouvee Then
    stDocName = "ET-Etiquette asce"
    DoCmd.OpenReport stDocName, acNormal
Else
    MsgBox "Imprimante non connecte", vbCritical + vbOKOnly
End If
 
 
Exit_Commande143_Click:
    Exit Sub
 
Err_Commande143_Click:
    MsgBox Err.Description
    Resume Exit_Commande143_Click
 
End Sub

[Commandeur]

J'ai trouver un autre code VBA:

il marche sur mon ordi pour l'instant

je vais voir demain au boulo si sa marche avec les imprimantes reseaux

par contre je ne suis pas arrive a remettre message, s'il trouve pas l'imprimante indique.

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
Private Sub Commande124_Click()
On Error GoTo Err_Commande124_Click
 
 
Dim NumImp As Integer
Dim ImpCherche
Dim Compteur As Integer
Dim ImpRecherche As String
 
'initialisation des variables
    ImpRecherche = "Epson stylus d78 series"
    Compteur = 0
    NumImp = Application.Printers.Count
 
'Balayage de l'ensemble des imprimantes pour identifier celle que l'on cherche
    For Each ImpCherche In Application.Printers
 
        If ImpCherche.DeviceName = ImpRecherche Then
            Set Application.Printer = Application.Printers(Compteur)
 
 
       Exit For
 
    End If
 
    Compteur = Compteur + 1
 
    Next ImpCherche
 
'ouverture de l'état selon critère
 
    stDocName = "ET-Etiquette prix"
    DoCmd.OpenReport stDocName, acNormal
 
 
    Set Application.Printer = Nothing
 
 
Exit_Commande124_Click:
    Exit Sub
 
Err_Commande124_Click:
    MsgBox Err.Description
    Resume Exit_Commande124_Click
 
End Sub

ou faut-il mettre ceci?

Code :

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

1
2
3
Else
    MsgBox "Pas d'imprimante", VbCritical+VbOkOnly
End If

Merci de vos reponses

[Commandeur]

J'ai trouver le probleme d'imprimante reseaux,

en fait il faut mettre le chemin de l'imprimante

exemple :

\\UTILISAT-B79D\Epson stylus d78 series

Mon soucis c'est que mon application et sur plusieurs poste
donc deux noms differents

\\UTILISAT-B79D\Epson stylus d78 series
et
Epson stylus d78 series

je voudrai savoir si on peut lui dire de chercher un imprimante qui aurais dans le nom ''Epson"

J'ai essayer faire ce code, mais sa ne marche pas

Code :

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

1
2
 
ImpRecherche = "**Epson**"

si on peut pas le faire ,comment je peux lui dire :

si il trouve pas l'imprimante "Epson stylus d78 series"
qu'il imprime sur l'imprimante "\\UTILISAT-B79D\Epson stylus d78 series"

je prefererais le premier solution

si vous avez une reponse.
Merci

[Jean-Philippe André]

salut,
regarde la fonction Instr()

[Commandeur]

ok , comment je l'utilise dans mon code?

Code :

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

1
2
3
 
 
ImpRecherche Instr()  = "**Epson**"

[Jean-Philippe André]

Avec l'aide en ligne

Code :

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

If Instr(1,ImpCherche.DeviceName,ImpRecherche)>0 Then

[Commandeur]

Merci de tes reponses, mais je suis tres novice de le vba voir tres mauvais


Peut-tu me le faire sur mon code stp,

Merci

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
Private Sub Commande124_Click()
On Error GoTo Err_Commande124_Click
 
 
Dim NumImp As Integer
Dim ImpCherche
Dim Compteur As Integer
Dim ImpRecherche As String
 
'initialisation des variables
    ImpRecherche = "Epson stylus d78 series"
    Compteur = 0
    NumImp = Application.Printers.Count
 
'Balayage de l'ensemble des imprimantes pour identifier celle que l'on cherche
    For Each ImpCherche In Application.Printers
 
        If ImpCherche.DeviceName = ImpRecherche Then
            Set Application.Printer = Application.Printers(Compteur)
 
 
       Exit For
 
    End If
 
    Compteur = Compteur + 1
 
    Next ImpCherche
 
'ouverture de l'état selon critère
 
    stDocName = "ET-Etiquette prix"
    DoCmd.OpenReport stDocName, acNormal
 
 
    Set Application.Printer = Nothing
 
 
Exit_Commande124_Click:
    Exit Sub
 
Err_Commande124_Click:
    MsgBox Err.Description
    Resume Exit_Commande124_Click
 
End Sub

Ton code correspond a la premier ou a la deuxieme solutions

[Jean-Philippe André]

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
Private Sub Commande124_Click()
On Error GoTo Err_Commande124_Click
 
 
Dim NumImp As Integer
Dim ImpCherche
Dim Compteur As Integer
Dim ImpRecherche As String
 
'initialisation des variables
    ImpRecherche = "Epson stylus d78 series"
    Compteur = 0
    NumImp = Application.Printers.Count
 
'Balayage de l'ensemble des imprimantes pour identifier celle que l'on cherche
    For Each ImpCherche In Application.Printers
 
        If Instr(1,ImpCherche.DeviceName, ImpRecherche)>0  Then
            Set Application.Printer = Application.Printers(Compteur)
 
 
       Exit For
 
    End If
 
    Compteur = Compteur + 1
 
    Next ImpCherche
 
'ouverture de l'état selon critère
 
    stDocName = "ET-Etiquette prix"
    DoCmd.OpenReport stDocName, acNormal
 
 
    Set Application.Printer = Nothing
 
 
Exit_Commande124_Click:
    Exit Sub
 
Err_Commande124_Click:
    MsgBox Err.Description
    Resume Exit_Commande124_Click
 
End Sub

[Commandeur]

Merci ton aide juste une question encore, en rajoutant ce code sa me donne quoi?


Il recheche un imprimante qui a le mot Epson?

[Jean-Philippe André]

Je ne comprends pas la question ?

[Commandeur]

desole si je suis pas claire,

en fait j'ai une imprimante en resaux et une imprimante en local


mon souci c'est que mon code selectionne une imprimante par rapport a son nom.

--Premiere solution :
Moi je voudrais qu'il selectionne l'imprimante qui a le mot "epson" dans son nom.

--Deuxieme solution :

qu'il imprime sur l'imprimante qui est connecte
soit sur "Epson stylus d78 series"
ou "\\UTILISAT-B79D\\Epson stylus d78 series"


ton code c'est pour faire cette action?

[Jean-Philippe André]

Le code fourni fais un filtre sur "Epson stylus d78 series" (ImpRecherche)

[Commandeur]

C'est a dire? filtre sur ton les noms d'imprimantes

il recherche "Epson stylus d78 series" y compris "\\UTILISAT-B79D\\Epson stylus d78 series"?

[Jean-Philippe André]

Oui, par contre si les deux occurences existent, il ne sera garder que la derniere.

[Commandeur]

Merci sa marche super bien, merci de ton aide.