Discussion :

[Armagnak]

Voilà le code pour imprimer une requête en mode paysage.
La ligne en rouge ne fonctionne pas sous 2000.
Est-ce qu'une âme charitable pourrait me donner l'équivalent en raccourci clavier ?
Cela existe dans la FAQ mais pour un état et pas pour une requête...

Code :

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

1
2
3
4
5
6
7
8
9
Sub Paysage()

Dim oDb As DAO.Database
Set oDb = CurrentDb
Printer.Orientation = acPRORLandscape

DoCmd.OpenQuery "Requête1"
DoCmd.PrintOut
DoCmd.Close acQuery, "Requête1"

Je suis un peu dans l'urgence donc je suis preneur du moment que ça marche même si c'est moche

Merci

[catoucat]

Essaye ca mais c'est pas sur que ca marche

Code :

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

currentdb.QueryDefs("NomQuery").Properties("Orientation")=1

Sinon si tu changes dans les proprietes de l'imprimante ca marche?

[Armagnak]

Sinon si tu changes dans les proprietes de l'imprimante ca marche?

Pas con ! J'y avais pas pensé ! ça fera l'affaire !

THANKS !!!!