Discussion :

[nekro65]

bonjour ! j'ai fait plusieurs recherche sur le forum et j'ai trouvé bcp de solution pour choisir une imprimante par défault mais pour les état.

Or je désire imprimer un formulaire (j'entend d'ici les personnes me disant que c'est le role des états, je ne connais pas du tout les états et je n'ai malheureusement pas le temps de m'y plonger. Si je choisis d'imprimer le formulaire c'est qu'il y a une condition qui fait que si x = 1 on affiche a l'impression 2 champs sinon 1 seul ...)
Pour l'instant j'ai la commande :

Code :

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

DoCmd.RunCommand acCmdPrint

Qui permet à la personne de choisir l'imprimante mais il y aurait un gain de temps si cela prenait directement l'imprimante par défault.

Merci pour la lecture et vos idée

Cordialement Nek

[Jacques-Henri]

Bonsoir,
C'est vrai que l'état est mieux conçu pour imprimer. Mais il est vrai aussi que rien ne t'empêche d'imprimer ton formulaire, mais pour moi l'inconvénient c'est que ça bouffe de la couleur quand tu possèdes l'imprimante ad hoc. Enfin, c'est mon avis.Maintenant, pour imprimer ton form avec ton imprimante par défaut, je ne pense pas qu'il faut chercher bien loin, si tu clic sur boîte à outils après avoir visualisé ton form en mode création, tu suis la procédure avec l'assistant et puis le tour est joué, je crois.Tu peux ensuite affiné avec du code VBA pour n'imprimer que ce que tu souhaites.

[Gabout]

Bonsoir,

Imprimer un formulaire... pas glop :
De plus, je suis loin d'avoir déchiffré

Si je choisis d'imprimer le formulaire c'est qu'il y a une condition qui fait que si x = 1 on affiche a l'impression 2 champs sinon 1 seul ...)

Sinon sur clic d'un bouton...

Code :

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

1
2
3
4
DoCmd.Echo False, ""
SendKeys """^p""", False  'Imprimer avec l'imprimante par défaut
SendKeys "~", False       'Valider
DoCmd.Echo True, ""

A tester

[loufab]

Bonjour,

C'est pas très propre mais tu peux lancer un

Code :

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

sendkeys "{Enter}"

après ton docmd.runcommand.

Cordialement,

[Jacques-Henri]

Je m'excuse mais je ne m'y retrouve pas dans les explications.Le but initial était donc de choisir une imprimante par défaut? Hors dans une application, la commande "impression" sélectionne toujours l' imprimante par défaut qui a été choisie.Ainsi lorsque j'utilise l'assistant pour imprimer le formulaire, le code VBA est

Code :

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

DoCmd.PrintOut

et il n'est pas utile de "choisir" une imprimante par défaut puisque cela se fait automatiquement.J'aimerais comprendre.Je ne vois pas du tout l'intérêt ou le but de programmer une imprimante par défaut sur une machine, à moins que l'on travaille en réseau ?
C'est peut être le cas ici mais non exprimé dans la question de nekro65
D'autre part la fonction SENDKEYS n'est ce pas une instruction clavier?
Merci pour vos réponses .

[Gabout]

Bonsoir,

Tu as tout à fait raison Jacques-Henri je me suis égaré dans un truc qui ne me plaisait pas.

A+

[Jacques-Henri]

Bonsoir également et merci pour ta réponse.
En fait il n'y aucune vanité à en tirer, je pense simplement que d'autres comme moi veulent aussi s'inspirer et progresser à travers le forum et si par moment des réponses à des questions posées demandent des explications c'est aussi enrichissant, non.Le point de vue de Nékro sera aussi intéressant sur les réponses apportées.
autant pour toi.

[nekro65]

Bonjour merci pour toutes ses réponses !

J'avais remarqué une chose bizarre avec le

Code :

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

DoCmd.PrintOut

comme me le conseille Jacques-Henri

Je code mon programme sur un pc différent de celui qui l'utilise et nous n'avons pas les mêmes imprimante par défaut. en mettant le "PrintOut" il garde en mémoire mon imprimante par défaut et non celle du pc qui utilise le programme... C'est la raison pour laquelle je cherchais un autre moyen avec celles-ci ...

Si je choisis d'imprimer le formulaire c'est qu'il y a une condition qui fait que si x = 1 on affiche a l'impression 2 champs sinon 1 seul ...)

Je ne sais pas comment mettre des conditions dans les Etats j'expliquai la contrainte lié a l'impression.

Je vais essayer le code

Code :

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

sendkeys "{Enter}"

proposé par "loufab", je vous tiens au courant.

Encore merci de vous penchez sur ce cas.

Cordialement

[loufab]

Attention le sendkeys est en complément du

Code :

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

docmd.runcommand acmdprint

Si tu ne veux pas voir passer la fenêtre tu peux utiliser

Code :

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

1
2
3
4
docmd.echo false
docmd.runcommand ...
sendkeys ...
docmd.echo true

Tu peux également jeter un coup d'oeil sur la collection Printer de ton objet, tout y est définie.

[Jacques-Henri]

Surprenant ce que tu dis nekro65 avec

Code :

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

DoCmd.PrintOut

car moi aussi ma BDD est utilisée par d'autres avec leur propre PC et une autre imprimante par défaut différente, nous n'avons pas du tout ce problème. Version access 2000 pour être précis.Merci pour la suite et le dénouement.
Bonne APM