message de confirmation avant impression

Bonjour à tous,

Dans un formulaire j'ai créé un bouton permettant de lancer l'impression d'un état. Jusque là ça va tout fonctionne. Ce que j'aimerai c'est qu'avant de lancer l'impression, il y est une boîte de dialogue permettant de choisir l'imprimant, de la configurer, etc... J'ai mis en pièce jointe la fenêtre que je souhaiterai voir apparaître avant que l'impression se lance.
Est-ce-que quelqu'un saurait si c'est juste une propriété du bouton à renseignée, ou alors du vba à rajouter ou autre ???
Merci

Bonjour,
deux aspects à traiter ici :
- mettre en imprimante par défaut pour l'état en question
- imprimer l'état en lançant le code VBA Docmd.OpenReport avec paramètre acViewNormal

merci jpcheck pour ta réponse, j'ai mis en application ton deuxième point

Citation:

---

imprimer l'état en lançant le code VBA Docmd.OpenReport avec paramètre acViewNormal

---

Par contre le premier point je ne saisis pas ce qu'il faut que je fasse ?
Pourrais tu m'expliquer le premier point en plus détaillé stp.
Voilà mon code actuel affecté au bouton d'impression de l'état select_pick_multi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub imprimer_BP_multi_Click() On Error GoTo Err_imprimer_BP_multi_Click   Dim stDocName As String   stDocName = "select_pick_multi" DoCmd.OpenReport stDocName, acViewNormal   Exit_imprimer_BP_multi_Click: Exit Sub   Err_imprimer_BP_multi_Click: MsgBox Err.Description Resume Exit_imprimer_BP_multi_Click   End Sub

---

Merci

Bonjour,
voici une capture d'écran pour la sélection d'une imprimante par défaut :


En passant par Aperçu avant impression>Mise en Page

Bonjour jpcheck,

Oui en passant par aperçu avant impression etc... Mais c'est pas ça que je voudrais faire. J'ai mis en PJ un aperçu de mon formulaire. Et je voudrais que quand la personne clique sur le bouton "imprimante" ça lui affiche la boîte de dialogue d'impression. Là actuellement, ça lance directement l'impression et ça ne me va pas.

Merci pour votre aide

Bjr,

Ouvrir l'état en mode normal et lancer la commande d'impression :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub MonBouton_Click() On Error Goto Gestion_Erreurs DoCmd.OpenReport "MonEtat", acViewPreview DoCmd.RunCommand acCmdPrint Exit Sub Gestion_Erreurs: Msgbox "Erreur d'impression n° " & Err.Number & " : " & Err.Description End Sub

---

Bonjour Arkham46,

J'ai utilisé ton code mais ça lance toujours l'impression directement sans m'ouvrir la boîte de dialogue :? ça va me rendre chèvre à force cette boîte de dialogue !

mauvais copier-coller, il fallait mettre acViewPreview pour prévisualiser l'état sans l'imprimer :oops:

J'ai mis de cette façon :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub imprimer_BP_mono_Click()   On Error GoTo Gestion_Erreurs DoCmd.OpenReport "select_pick_mono", acViewNormal DoCmd.RunCommand acViewPreview Exit Sub Gestion_Erreurs: MsgBox "Erreur d'impression n° " & Err.Number & " : " & Err.Description End sub

---

C'est bien ça ?

Si oui bin toujours pareil :cry: pourquoi c'est si compliqué de faire apparaître cette c****** de fenêtre !

non c'est pas au bon endroit
j'ai modifié mon code au dessus

remarque : j'ai testé le code sur access 2003

Bingo ! ! ! :yaisse2:
Tu es génial ! :king:
C'est tout à fait ça que je voulais ! Tout marche à merveille !

Merci beaucoup ! Et merci pour ta rapidité !

remarque : juste pour info je suis aussi sous access 2003