Discussion :

[Chagui]

Bonjour,

J'utilise ce code pour imprimer. Cela me permet d'avoir la fenêtre d'option d'impression afin de pouvoir choisir une imprimante.

Le problème que j'ai est que l'aperçu n'affiche rien. Il affiche l'état apres avoir cliquer sur OK (fenetre option d'impression qui se ferme et impression qui se lance).

J'aimerai si c'est possible pouvoir avoir un aperçu avant d'imprimer...

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
On Error GoTo Err
    DoCmd.OpenReport "Etat_ encoursCTRL", acViewPreview, , "T_controle.IDcontroledossier=" & Me.IDcontroledossier 'Obligatoire pour rendre "MyReport" Courant à l'impression.
    DoCmd.RunCommand acCmdPrint 'Boîte de dialogue Options d'impression
 
     DoCmd.Close acForm, Me.Name
 
Exit_Err:
    Exit Sub
 
Err:
    If Err.Number = 2501 Then 'Evite le message d'annulation de la commande CmdPrint
    Else
    MsgBox Err.Description & " " & Err.Number
    End If
    Resume Exit_Err

Y at-il un problème au niveau du code ??

merci pour votre aide

[ClaudeLELOUP]

Bonjour,

Tu dois intercaler DoEvents après l'ouverture de l'état ainsi :

Code :

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

1
2
3
4
5
DoCmd.OpenReport "Etat_ encoursCTRL", acViewPreview, , "T_controle.IDcontroledossier=" & Me.IDcontroledossier 'Obligatoire pour rendre "MyReport" Courant à l'impression.
DoEvents    
DoCmd.RunCommand acCmdPrint 'Boîte de dialogue Options d'impression
 
     DoCmd.Close acForm, Me.Name

[Chagui]

Merci Claude !!!

Je test ca demain mais il n'y a pas de raison que ca ne fonctionne pas, tu as l'air sur de ta réponse !

bonne soirée