Imprimer une requête en Paysage sous VBA avec des raccourcis clavier.

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:

---

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 :mouarf:

Merci

Essaye ca mais c'est pas sur que ca marche

Code:

---

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

---

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

Citation:

---

Envoyé par catoucat

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

---

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

THANKS !!!!