Discussion :

[FHDLB]

Bonjour à tous,

j'ai un soucis avec une base que j'ai développée. les états sont figés sur une imprimante et les personnes à qui je la diffuse sont chaque fois obligés de modifier l'imprimante pour réaffecter leur imprimante par défaut. Comment puis-je faire pour que l'imprimante sélectionnée par le programme soit l'imprimante par défaut de l'utilisateur et non pas celle qui a servi à construire l'état.

J'ai regardé dans la FAQ et dans les discussions, mais n'ai pas trouvé de réponse

Merci pour votre aide

François

[User]

Salut,

Voici un lien, dans lequel tu peux récupérer la fonction "GetDefaultPrinter ",

Et après en VBA tu peux faire avant impression de ton état:

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
Dim ImpCherche
Dim Compteur As Integer
Dim ImpRecherche As String
 
'initialisation des variables
    ImpRecherche = GetDefaultPrinter
    Compteur = 0
 
'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
 
DoCmd.OpenReport "TonEtat", acViewPreview

A+