Discussion :

[pkrvz]

Bonjour,

Je rencontre une difficulté pour la selection d'un imprimante spécifique pour l'impression d'un état.

En résumé pour imprimer des étiquettes, je souhaite utiliser une imprimante à étiquette, et une imprimante autre pour les autres états.

Quand je vais dans la mise en page de l'etat et que je choisi l'option imprimante spécifique, je valide. Quand je reviens dans le menu la case est cochée sur imprimante par défaut.

Je ne comprend pas pourquoi ACCESS 2007 n'enregistre pas mon paramétrage.

Auriez vous une exemple de code VBA qui me permettrais de forcer la sélection de l'imprimante au moment de l'impression.

Cordialement
Patrick

[naphta]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim NombreImp As Integer
Dim ImpCherche
 
NombreImp = Application.Printers.Count
For Each ImpCherche In Application.Printers
    If ImpCherche.DeviceName = "ImprimanteEtiket" Then
        Set Application.Printer = Application.Printers(NumIMP)
        Exit For
    End If
Next ImpCherche
 
End If

Alors il faut que l'imprimante est le même nom partout dans le cas d'un fonctionnement multiusers, ici "ImprimanteEtiket"

Code :

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

1
2
 
Set Application.Printer = Nothing

à ajouter en fin de traitement (après impression ou aperçu)
a+

[pkrvz]

Merci bcp de ton aide,
J'ai apporté quelques modifs à ton code qui ne fontionnait pas totalement en l'état.
Je ne sais si mes modifications sont très "pro" mais en cas cela fonctionne (je débute en vba".

Voici le 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
24
25
26
27
28
29
30
31
32
 
 
Private Sub BT_imprimeEtiquette_Click()
Dim NumImp As Integer
Dim ImpCherche
Dim Compteur As Integer
Dim ImpRecherche As String
 
'initialisation des variables
    ImpRecherche = "DYMO LabelWriter 400 Turbo"
    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
    Crit = "[T-Dossier].CodeDossier=" & ItemSELECTIONNE
    DoCmd.OpenReport "E-EtiquetteCodebarre", acViewNormal, , Crit
 
'retour à l'imprimante par défaut
    Set Application.Printer = Nothing
End Sub

Encore Merci

Patrick

[naphta]

Bonjour,

Oui c'est vrai !!
je suis désolé j'avais trop fait le ménage dans le code ..

A+