Discussion :

[benejepo]

Bonjour,
Voici le code d'un bouton pour imprimer un rappport

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
18
 
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click
DoCmd.Close 'Formulaire en mode modal et indépendant
stDocName = "cli_lis_alpha" 'Nom du rapport
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.PrintOut
DoCmd.Close stDocName
 
DoCmd.OpenForm "Frm_clidet_lis"
Exit_Commande11_Click:
Exit Sub
 
Err_Commande11_Click:
MsgBox err.Description
Resume Exit_Commande11_Click
 
End Sub

1er problème : J'ai tjs un message "La commande ou l'action 'Imprimer' n'est pas disponible pour l'instant" - mais le rapport s'imprime correctement
2ème problème : je reste sur un écran vierge, je ne reviens pas sur l'écran "Frm_clidet_lis"
Pouvez-vous m'aider

Bonjour ,
J'ai déjà eu cette remarque concernant les balises mais je ne comprends pas trop ce que je dois faire. Une explication peut-être? et surtout une solution à mon problème

[marot_r]

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
18
19
20
 
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click
DoCmd.Close 'Formulaire en mode modal et indépendant
stDocName = "cli_lis_alpha" 'Nom du rapport
DoCmd.OpenReport stDocName, acViewNormal
 
'DoCmd.PrintOut : Cette ligne est inutile, le paramêtre acViewNormal envois le rapport directement à l'imprimante.
 
DoCmd.Close stDocName
 
DoCmd.OpenForm "Frm_clidet_lis"
Exit_Commande11_Click:
Exit Sub
 
Err_Commande11_Click:
MsgBox err.Description
Resume Exit_Commande11_Click
 
End Sub