Discussion :

[electrosat03]

Salut à tous,

Sur un état, j'ai un menu contextuel avec diff. options pour l'impression, j'aimerais ajouter l'option 'choix de l'imprimante'.

Pour cela, j'ai placé une fonction avec l'envoi des touches CTRL P, SendKeys "^P", mais elles ne sont pas prises en compte.

Comment faire?

Merci
A+

[LE VIEUX]

bonsoir,

essayes

Code :

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

SendKeys "^p"

attention p minuscule

[=JBO=]

Bonjour,

Sur un état, j'ai un menu contextuel avec diff. options pour l'impression, j'aimerais ajouter l'option 'choix de l'imprimante'.

Comment as-tu créé le menu contextuel ?

Si c'est par programmation (en VBA) alors le plus simple c'est que le bouton de commande (ton option) fonctionne comme la commande de menu intégrée d'Access qui ouvre la boîte de dialogue pour choisir une imprimante.

Les commandes de menu intégrées ont un identifiant qu'il faut spécifier.
Dans ton cas, Id=4:

Si tu préfères créer un bouton de commande perso auquel tu associes une fonction VBA à exécuter, tu pourrais peut être remplacer le SendKeys par le code ci-dessous:

Code VBA :

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

CommandBars.FindControl(Id:=4).Execute

Ce code est sensé exécuter la commande de menu intégrée dont l'identifiant est le 4, c'est à dire l'impression avec choix d'une imprimante.

[EDIT]
Le message du VIEUX est passé juste avant le mien.

Et c'est très bien vu.
[/EDIT]
_

[electrosat03]

Salut,

Merci pour vos réponses.

J'ai fini par trouver

Code :

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

    DoCmd.RunCommand acCmdPrint 'Avoir la fenêtre de dialogue 'choix d'imprimante'

A+

[=JBO=]

Bonjour electrosat03 !

Merci de nous avoir tenu informés.
Effectivement DoCmd.RunCommand recèle plein de bonnes choses.

J'ai fini par trouver

Code :

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

    DoCmd.RunCommand acCmdPrint 'Avoir la fenêtre de dialogue 'choix d'imprimante'

Je vais compléter ma réponse précédente, pour informer les curieux (dont je suis).

Code VBA :

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

CommandBars.FindControl(Id:=4).Execute

Dans un contexte VBA Office, et pas seulement VBA Access, la commande que j'ai donné fonctionne aussi bien dans Access, Word, Excel, Powerpoint, et Outlook (sur un Explorer).
Et cette compatibilité peut être utile.

A une prochaine fois !
_

[vodiem]

salut electrosat03, LE VIEUX, =JBO=

pour informer les curieux

oui? on m'a appelé?

cette compatibilité peut être utile

compatibilité toute relative: horizontale mais pas verticale. j'ai le souvenir des changements de versions où l'id ne correspondait plus aux nouvelles versions. c'est surement pour cela qu'ils ont fait le RunCommand avec des constantes qui permettent de conserver l'instruction valide avec <> version. encore faut-il disposer de cette instruction qui est apparu en cours de route...