Discussion :

[olivier777]

Bonjour à tous,

Je souhaiterai faire afficher une boite de dialogue qui propose d'imprimer ou non après l'affichage de l'aperçu avant impression d'un état.

Dois-je plutot passer par une macro ou par du VBA ? Si le VBA est le mieux, quel serait le code approprié ?

Merci de votre aide car je nage un peu....

Olivier

[Muhad'hib]

Je ne comprend pas ton besoin. Quand tu fais un appercu avant impression, tu as bien un bouton imprimer ?

Tu n'as besoin ni de macro, ni de vba, juste d'un click sur le bouton d'access

[olivier777]

Merci pour ta réponse,

Ce que je cherche à faire c'est une présentation "personnalisée" pour imprimer notamment.

Que l'utilisateur puisse imprimer "facilement" en ayant le choix.

Merci

Olivier

[Muhad'hib]

Pour moi les boutons permettent à l'utilisateur d'imprimer facilement en ayant le choix mais peut-être que cela correspond à ton attente :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DVP_COM()
Dim Reponse As Integer
DoCmd.OpenReport "MonEtat", acViewPreview
Reponse = MsgBox("Voulez-vous imprimer l'état", vbYesNoCancel, "Impression")
Select Case Reponse
    Case vbYes
        DoCmd.OpenReport "MonEtat", acViewNormal
    Case vbNo
    Case vbCancel
        DoCmd.Close acReport, "MonEtat"
End Select
End Sub

[stigma]

Code :

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

1
2
3
4
DoCmd.OpenReport "monRapport",acPreview
DoEvents
On Error Resume Next
DoCmd.RunCommand acCmdPrint

[Muhad'hib]

qui propose d'imprimer ou non après l'affichage de l'aperçu avant impression

Le besoin est d'avoir le choix ...

[olivier777]

Merci pour votre réponse,

Mais ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DVP_COM()
Dim Reponse As Integer
DoCmd.OpenReport "MonEtat", acViewPreview
Reponse = MsgBox("Voulez-vous imprimer l'état", vbYesNoCancel, "Impression")
Select Case Reponse
    Case vbYes
        DoCmd.OpenReport "MonEtat", acViewNormal
    Case vbNo
    Case vbCancel
        DoCmd.Close acReport, "MonEtat"
End Select
End Sub

ou encore celui-ci :

Code :

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

1
2
3
4
DoCmd.OpenReport "monRapport",acPreview
DoEvents
On Error Resume Next
DoCmd.RunCommand acCmdPrint

doit être mis sur un évènement ? si oui lequel ?

D'autre part, j'ai trouvé un tuto "Créer un formulaire MSAccess MessageBox() paramétrable et auto-refermable" l'avez vous tester ? Qu'en pensez vous pour réaliser ce que je veux faire ?

[stigma]

tu mets mon code dans un événement click d'un bouton par exemple.