Discussion :

[lio33]

Bonjour,

Comment ouvrir la boite de dialogue "Imprimer" sous ACCESS 2003 ?

J'ai trouvé ceci :

Application.Dialogs(xlDialogPrint).show

Mais cela me jette.

Faut-il ajouter une référence pour que cela fonctionne ?

Merci d'avance.

[FreeAccess]

Bonjour,

Ceci fonctionne correctement sous AC 2003:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Imprimer()
'Permet d'accéder à la boîte de dialogue Impression
On Error GoTo Erreur
    DoCmd.RunCommand acCmdPrint
Sortie:
    Exit Sub
Erreur:
'cas où l'utilisateur a annulé
    If Err.Number = 2501 Then Resume Sortie 
    MsgBox Err.Number & " " & Err.Description
    Resume Sortie
End Sub

...à tester..

[lio33]

Merci,
cela fonctionne bien !