Discussion :

[Jeanpierre71]

Bonjour

Avec le code qui suis j'imprime bien mon formulaire mais je suis obligé de bloqué l'impression car il envoie 10,20,30 exemplaires ? à l'imprimante par défaut pourquoi :

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 OuvrirJDB()
On Error GoTo Err_Commande15_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "FResultats"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms("FResultats").Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut
    DoCmd.Close acForm, "FResultats"
Exit_Commande15_Click:
    Exit Sub
 
Err_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
 
End Sub

Voila ! merci pour les réponses

Jean Pierre

[Invité]

Bonjour

On ne le dira jamais assez, mais un formulaire n'est pas fait pour l'impression, il y a les états pour cela.

Essayes quand même en ouvrant ton formulaire en utilisant la clause Where.

Philippe

[Jeanpierre71]

Bonjour Philippe

Je suis 200% d'accord avec toi sur le fait que les états sont fait pour cela Sauf que dans le cas présent le formulaire FResultas est issu d'une requête. Que les résultats de cette requete passe à la moulinette de seuils qui doivent changés de couleur en cas de dépassement par le bas ou par le haut. Avec un état c'est pas gagné non ?


Jean Pierre