Discussion :

[veriecherie]

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

[Jean-Philippe André]

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

[veriecherie]

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

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 :

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
 
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

[Jean-Philippe André]

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

[veriecherie]

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

[Arkham46]

Bjr,

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

Code :

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

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

[veriecherie]

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 !

[Arkham46]

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

[veriecherie]

J'ai mis de cette façon :

Code :

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

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 pourquoi c'est si compliqué de faire apparaître cette c****** de fenêtre !

[Arkham46]

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

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

[veriecherie]

Bingo ! ! !
Tu es génial !
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