OVH Cloud OVH Cloud

Source d'un état

3 réponses
Avatar
Caro
Bonjour,

J’ai un formulaire qui affiche en mode continu, toutes mes commandes de
services qui ne sont pas complétées. Sur ce formulaire, je peux trier,
filtrer les enregistrements selon mon désir à l’aide de bouton commandes.

J’aimerais pouvoir imprimer un état qui serait basé sur ce qui est affiché à
l’écran ( trié et filtré) . Je ne veux pas utiliser la commande
docmd.PrintOut car j’ai d’autres renseignements à inscrire sur le rapport que
ce qui est affiché à l’écran et les couleurs et dispositions ne sont pas
adéquates.

Est-ce possible ?, Sinon, comment réorganiser mon rapport imprimé en
fonction de mes besoins ? Un exemple détaillé s.v.p.

Merci de votre aide.

Caro

3 réponses

Avatar
3stone
Salut,

"Caro"
| J’ai un formulaire qui affiche en mode continu, toutes mes commandes de
| services qui ne sont pas complétées. Sur ce formulaire, je peux trier,
| filtrer les enregistrements selon mon désir à l’aide de bouton commandes.
|
| J’aimerais pouvoir imprimer un état qui serait basé sur ce qui est affiché à
| l’écran ( trié et filtré) . Je ne veux pas utiliser la commande
| docmd.PrintOut car j’ai d’autres renseignements à inscrire sur le rapport que
| ce qui est affiché à l’écran et les couleurs et dispositions ne sont pas
| adéquates.
|
| Est-ce possible ?, Sinon, comment réorganiser mon rapport imprimé en
| fonction de mes besoins ?


Tu peux *essayer* d'ouvrir ton état en lui transmettant le filtre actif ainsi
que le tri de ton formulaire...


Dim stDocName As String
stDocName = "LaTable"
DoCmd.OpenReport stDocName, acPreview, Me.Filter
With Reports(stDocName)
.OrderBy = Me.OrderBy
.OrderByOn
.FilterOn
End With


| Un exemple détaillé s.v.p.

tu effraies inutilement les bonnes volontés ;-))


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
3stone
heu...

oublié les "true" ;-)

Dim stDocName As String
stDocName = "LaTable"
DoCmd.OpenReport stDocName, acPreview, Me.Filter
With Reports(stDocName)
.OrderBy = Me.OrderBy
.OrderByOn = true
.FilterOn = true
End With



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Caro
Merci, ça fonctionne à merveille...

J'aurais du mentionner dans ma demande que je n'étais pas une pro...

Désolée. Merci

Caro


heu...

oublié les "true" ;-)

Dim stDocName As String
stDocName = "LaTable"
DoCmd.OpenReport stDocName, acPreview, Me.Filter
With Reports(stDocName)
.OrderBy = Me.OrderBy
.OrderByOn = true
.FilterOn = true
End With



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/