imprimer formulaire mode paysage

bonjour bonjour,

je suis en train de m'amuser comme un petit fou avec les joies de l'impression sous Access.

Le formulaire que je veux imprimer est créé dynamiquement, imprimé et aussitôt supprimé tout aussi dynamiquement.
J'ai trouvé sur la FAQ ce bout de code à ajouter pour définir le mode Paysage et jusque là ça marche! (ne faites pas attention au lettres dans le codes, je travaille en allemand...)

Code:

---

1 2 3 4 5 6

SendKeys "{f10}" SendKeys "{D}" SendKeys "{i}" SendKeys "{right}" SendKeys "%{f}" SendKeys "{enter}"

---

Avant de sauvegarder mon formulaire j'insert le code ci-dessus et quand je regarde dans le menu/fichier/Mise en Page... j'ai bien le mode Paysage de selectionné.

Ensuite je veux executer le code suivant:

Code:

---

1 2 3 4 5

DoCmd.OpenForm "F_AFFICHAGE" DoCmd.SelectObject acForm, "F_AFFICHAGE", True DoCmd.PrintOut DoCmd.SelectObject acForm, Screen.ActiveForm.Name, False DoCmd.Close acForm, "F_AFFICHAGE"

---

Et là... c'est le drame :( , Access me répond de 2 bips successifs (sans messages d'erreurs) et imprime en mode portait!

Aurais-je raté quelques choses avec Printout? à ma connaissance, il n'est pas possible de définir le mode paysage directement dans Printout, donc je ne comprend pas pourquoi il y a conflit...

Si vous avez une piste, je suis preneur :wink:

Bon j'ai trouvé une solution qui contourne le problème...
Je continue avec les Sendkeys pour imprimer mon document, ce qui donne (attention, les lettres sont pour le Access en Allemand)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DoCmd.OpenForm "F_AFFICHAGE" SendKeys "{f10}" SendKeys "{D}" SendKeys "{i}" SendKeys "{right}" SendKeys "%{f}" SendKeys "{enter}" SendKeys "{f10}" SendKeys "{D}" SendKeys "{D}" SendKeys "{enter}" 'DoCmd.Close acForm, "F_AFFICHAGE"

---

Si quelqu'un a toutefois une piste plus VBA, je suis prenneur :wink: (je laisse le topic ouvert jusqu'à demain, après il serait "résolu"...


EDIT:
En fait j'ai anticipé. Ce code ci fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

DoCmd.OpenForm "F_AFFICHAGE" SendKeys "{f10}" SendKeys "{D}" SendKeys "{i}" SendKeys "{right}" SendKeys "%{f}" SendKeys "{enter}" SendKeys "{f10}" SendKeys "{D}" SendKeys "{D}" SendKeys "{enter}"

---

et si je rajoute cette ligne:

Code:

---

DoCmd.Close acForm, "F_AFFICHAGE"

---

ce n'est pas le formulaire créé dynamiquement qui s'imprime, mais celui où est le bouton qui lance le code... j'ai beau chercher à utiliser Doevents, ça ne change rien... ce n'est en fait pas une question d'impression mais de vitesse d'execution de mon code!

tu as essayé sur ton report.orientation=landscape

hum... là je sèche. Je ne pense pas que ta solution puisse être utilisée dans mon cas car j'imprime bien un formulaire et non un état :?

Enfin j'ai beau me demander où je pourrais placer ton bout de code, je ne vois pas.

Mais sinon j'ai trouvé une solution assez radicale avec Doevents (il suffisait que je le place au bon endroit!)

Ma solution donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

DoCmd.OpenForm "F_AFFICHAGE" SendKeys "{f10}" SendKeys "{D}" SendKeys "{i}" SendKeys "{right}" SendKeys "%{f}" SendKeys "{enter}" SendKeys "{f10}" SendKeys "{D}" SendKeys "{D}" SendKeys "{enter}" DoEvents DoCmd.Close acForm, "F_AFFICHAGE"

---

Le seul petit désavantage est aue l'utilisateur peut croire qu'on manipule son ordi car il a le temps de bien voir toutes les fenêtres s'ouvrir :lol:

salut,

Code:

---

1 2 3 4 5 6 7

Private Sub CmbImprim_Click()   Frmcherche.Printer.Orientation = acPRORLandscape Frmcherche.PrintForm   End Sub

---

Bonne chance.
Merci.

hum, merci pour l'info, mais j'ai encore un dernier soucis, pour remplacer ton "Frmcherche", j'ai essayé:
- Forms("F_AFFICHAGE")
- Form("F_AFFICHAGE")
Mais j'ai un message d'erreur aui me dit qu'il y a une erreur dans la déclaration... :oops:

Salut,
c'est le nom de votre formulaire ou utilisez Me.
le code que je vous ai donné je l'ai trouver sur un site et puisque je n'ai pas d'imprimante, ACCESS provoque quelque fois des problèmes de ce genre.
Bonne chance.
Merci.

je vais essayer ça dimanche :wink:

J'ai essayé, ou essayé de comprendre plutôt, car mes tests ont été vains... :cry: , mais ce n'est pas trop grave, ça fontionne avec les sendkeys, donc je vais en rester là je pense, je me pencherais sur le probleme du PrintForm plus tard :wink:
Merci tout de meme!

Salut,je crois que si vous mettez

Code:

---

1 2 3

docmd.printout eu lieu de me.printform

---

sa marcherait peut être.
Bonne chance.
Merci.

slt,

en passant l'objet printer n'existe que depuis access 2002...

@ Arkham: merci de l'info, mais j'ai une version supérieure :wink:

@ hocine: :D merci, ça marche et ça va vite en plus!

Je donne mon code tout de même pour ceux qui ont ou auront un soucis identique:

Code:

---

1 2 3 4

DoCmd.OpenForm "F_AFFICHAGE" Forms("F_AFFICHAGE").Printer.Orientation = acPRORLandscape DoCmd.PrintOut DoCmd.Close acForm, "F_AFFICHAGE"

---

Salut,
Heureux,Content pour vous et pour moi.
MERCI.