OVH Cloud OVH Cloud

application.printout

6 réponses
Avatar
xavier
bonjour a tous
j'utilise la methode printout avec le code suivant

Application.PrintOut FileName:=3D"",=20
Range:=3DwdPrintAllDocument, Item:=3D _
wdPrintDocumentContent, Copies:=3D1, Pages:=3D"",=20
PageType:=3DwdPrintAllPages, _
Collate:=3DFalse, Background:=3DTrue,=20
PrintToFile:=3DFalse, PrintZoomColumn:=3D0, _
PrintZoomRow:=3D0, PrintZoomPaperWidth:=3D0,=20
PrintZoomPaperHeight:=3D0

Mon probleme est que le document =E0 imprimer doit etre sous=20
la forme "livret" : c'est une option de mon imprimante qui=20
imprime un document de plusieures page sous la forme d'un=20
livret, comment dans la methose printout parametrer les=20
proprietes de l'imprimante ou alors creer un livret avec=20
les arguments de printout

merci de votre aide=20

si c'est pas clair dites le moi
@+ xav

6 réponses

Avatar
Circé
Bonjour xavier,

Tu devrais trouver la solution à ton problème dans la faq ; il y a une macro
pour imprimer comme tu veux :
http://faq.ms.word.free.fr/Impression/Impression.htm

Circé
http://faq.ms.word.free.fr/



xavier wrote:
| bonjour a tous
| j'utilise la methode printout avec le code suivant
|
| Application.PrintOut FileName:="",
| Range:=wdPrintAllDocument, Item:= _
| wdPrintDocumentContent, Copies:=1, Pages:="",
| PageType:=wdPrintAllPages, _
| Collate:úlse, Background:=True,
| PrintToFile:úlse, PrintZoomColumn:=0, _
| PrintZoomRow:=0, PrintZoomPaperWidth:=0,
| PrintZoomPaperHeight:=0
|
| Mon probleme est que le document à imprimer doit etre sous
| la forme "livret" : c'est une option de mon imprimante qui
| imprime un document de plusieures page sous la forme d'un
| livret, comment dans la methose printout parametrer les
| proprietes de l'imprimante ou alors creer un livret avec
| les arguments de printout
|
| merci de votre aide
|
| si c'est pas clair dites le moi
| @+ xav
Avatar
genolife
je suis alle dans les faq effectivement j'ai trouve des choses
interressantes.
seulement mon imprimante a une unite recto verso et a la fonction livret est
ce que je peut directement les utiliser dans du code?
ca serais plus simple



Bonjour xavier,

Tu devrais trouver la solution à ton problème dans la faq ; il y a une
macro

pour imprimer comme tu veux :
http://faq.ms.word.free.fr/Impression/Impression.htm

Circé
http://faq.ms.word.free.fr/



xavier wrote:
| bonjour a tous
| j'utilise la methode printout avec le code suivant
|
| Application.PrintOut FileName:="",
| Range:=wdPrintAllDocument, Item:= _
| wdPrintDocumentContent, Copies:=1, Pages:="",
| PageType:=wdPrintAllPages, _
| Collate:úlse, Background:=True,
| PrintToFile:úlse, PrintZoomColumn:=0, _
| PrintZoomRow:=0, PrintZoomPaperWidth:=0,
| PrintZoomPaperHeight:=0
|
| Mon probleme est que le document à imprimer doit etre sous
| la forme "livret" : c'est une option de mon imprimante qui
| imprime un document de plusieures page sous la forme d'un
| livret, comment dans la methose printout parametrer les
| proprietes de l'imprimante ou alors creer un livret avec
| les arguments de printout
|
| merci de votre aide
|
| si c'est pas clair dites le moi
| @+ xav




Avatar
Anacoluthe
Bonjour !

'genolife' nous a écrit ...
je suis alle dans les faq effectivement j'ai trouve des choses
interressantes.
seulement mon imprimante a une unite recto verso et a la fonction livret est
ce que je peut directement les utiliser dans du code?
ca serais plus simple


La macro Livret WD2000 de la FAQ est écrite pour les imprimantes
où le recto-verso est manuel : on imprime tous les rectos, on
retourne et on recharge la pile puis on imprime tous les versos.
Si votre imprimante imprime en recto-verso, il suffit de modifier
la macro pour qu'elle imprime tout en une seule passe (recto puis
verso pour chaque feuille). Ainsi pour un livret de 8 pages sur
deux feuilles, il faut imprimer en zoom 2 pages successivement
les pages du document 8;1;2;7 6;3;4;5
C'est effectivement plus simple qu'en recto-verso manuel.

Anacoluthe
« Il est aussi facile de rêver un livre
qu’il est difficile de le faire. »
- Honoré de BALZAC

Avatar
xavier
bonjour

j'ai essaye mais ca marche pas.
en fait le recto verso ou l'option livret il faut aller dans les proprietes
de l'imprimante (fichier imprimer) et choisir ce qu'on veut. avec la macro
l'imprimante ne reconnais pas qu' un recto verso est imprimé.
est il possible d'utiliser les proprietes de l'imprimante dans du code?
sinon y a t'il une astuce

merci
xav


Anacoluthe a écrit dans le message :
#
Bonjour !

'genolife' nous a écrit ...
je suis alle dans les faq effectivement j'ai trouve des choses
interressantes.
seulement mon imprimante a une unite recto verso et a la fonction livret
est


ce que je peut directement les utiliser dans du code?
ca serais plus simple


La macro Livret WD2000 de la FAQ est écrite pour les imprimantes
où le recto-verso est manuel : on imprime tous les rectos, on
retourne et on recharge la pile puis on imprime tous les versos.
Si votre imprimante imprime en recto-verso, il suffit de modifier
la macro pour qu'elle imprime tout en une seule passe (recto puis
verso pour chaque feuille). Ainsi pour un livret de 8 pages sur
deux feuilles, il faut imprimer en zoom 2 pages successivement
les pages du document 8;1;2;7 6;3;4;5
C'est effectivement plus simple qu'en recto-verso manuel.

Anacoluthe
« Il est aussi facile de rêver un livre
qu’il est difficile de le faire. »
- Honoré de BALZAC



Avatar
Anacoluthe
Bonjour !

'xavier' nous a écrit ...
en fait le recto verso ou l'option livret il faut aller dans les proprietes
de l'imprimante (fichier imprimer) et choisir ce qu'on veut. avec la macro
l'imprimante ne reconnais pas qu' un recto verso est imprimé.
est il possible d'utiliser les proprietes de l'imprimante dans du code?
sinon y a t'il une astuce


VBA n'a en général pas accès directement au panneau des propriétés
spécifiques de l'imprimante qui dépendent du pilote. L'astuce consiste
à lire le manuel de son imprimante et à lui envoyer les bons codes de
contrôle. Sinon on configure l'imprimante avant l'impression ou on
envoie des 'SendKeys' dans ledit panneau des propriétés.

Anacoluthe
« Il est aussi facile de rêver un livre
qu’il est difficile de le faire. »
- Honoré de BALZAC

Avatar
xavier
bonjour

-j'ai lu le manuel j'ai rien trouve.
-configurer l'imprimante avant l'impression c'est ok mais je voulais
imprimer automatiquement.
- pour les sendkeys j'ai essayé mais je n'y arrive j'ai joint du code si
quelqun peut m'aider

Dialogs(wdDialogFilePrint).Show
SendKeys "{TAB 10}{ENTER}{TAB 6}L{ENTER}{TAB}{ENTER}", True
MERCI A TOUS DE VOTRE AIDE
XAV


VBA n'a en général pas accès directement au panneau des propriétés
spécifiques de l'imprimante qui dépendent du pilote. L'astuce consiste
à lire le manuel de son imprimante et à lui envoyer les bons codes de
contrôle. Sinon on configure l'imprimante avant l'impression ou on
envoie des 'SendKeys' dans ledit panneau des propriétés.

Anacoluthe
« Il est aussi facile de rêver un livre
qu’il est difficile de le faire. »
- Honoré de BALZAC