Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"Souriane" <sourianebad@bigfoot.com> wrote in message
news:1143034625.302270.100860@g10g2000cwb.googlegroups.com...
Bonjour!
J'ai besoin d'aide svp. J'ai beau chercher dans le FAQ, ça ne vient
pas répondre à ma question!
J'ai un document de 96 pages avec le "setting" suivant:
Orientation : Paysage
Taille du papier : 8½ x 11 (le A4 nord américain)
Afficher plusieurs pages : Pliage selon livre
Feuillet par livret : 4
J'ai besoin que ça s'imprime ainsi :
96-1 et verso 2-95
94-3 et verso 4-93
92-5 et verso 6-91
90-7 et verso 8-89
88-9 et verso 10-87
et ainsi de suite.
mais présentement ça imprime :
4-1 et verso 2-3
8-5 et verso 6-7
12-9 et verso 10-11
et ainsi de suite.
Quelqu'un peut-il me donner la recette magique ????
Merci de toute aide !
Doug, thank you so much!!!! It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane
zuzu
"Souriane" a remercié :
Doug, thank you so much!!!! It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane == Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je ne connais pas la belle langue de Shakespeare :-( Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci cordialement, zuzu
"Souriane" a remercié :
Doug, thank you so much!!!!
It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane
== Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je ne
connais pas la belle langue de Shakespeare :-(
Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci
cordialement, zuzu
Doug, thank you so much!!!! It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane == Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je ne connais pas la belle langue de Shakespeare :-( Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci cordialement, zuzu
Circé
Bonjour zuzu,
Je n'ai pas encore eu le temps de regarder la solution de Doug, mais dans la faq française, il y a la macro d'anacoluthe. Je fais un copier-coller car a priori la faq est tombée ! :s
================= Pour pouvoir rétablir l'ordre très particulier des pages recto-verso, voici un petite macro qui recalcule le tout dans l'ordre ; ça dépend un peu de l'imprimante selon qu'elle imprime par dessus ou par dessous (pour garder la pile dans le bon sens à la 2ème passe) Ajouter au besoin des pages blanches pour que le total des pages soit un multiple de 4.
Public Sub ImprimeEnLivret() ' macro écrite par Anacoluthe ' imprime le document sous forme de livret ' pour imprimante imprimant les pages dans l'ordre inverse ' imprimante inverse : l'ordre des pages de la pile finale est inversé ' utilise les fonctions zoom de l'impression WORD Dim NbPages, NbFeuilles, i, Rep As Integer Dim CouplePage As String NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) NbFeuilles = Int((NbPages + 3) / 4) If NbFeuilles * 4 = NbPages Then Rep = MsgBox("Impression recto-verso de " & _ NbFeuilles & " pages ?", vbYesNo, "Livret") If Rep = vbYes Then ' impression des rectos For i = 0 To NbFeuilles - 1 CouplePage = Str((4 * NbFeuilles) - (2 * i)) & ";" & Str(2 * i + 1) Impr2pages (CouplePage) Next i Rep = MsgBox(" retourner les feuilles et appuyer sur OK", vbOKOnly) ' impression des versos For i = 0 To NbFeuilles - 1 CouplePage = Str(2 * i + 2) & ";" & Str((4 * NbFeuilles) - (2 * i) - 1) Impr2pages (CouplePage) Next i End If Else MsgBox " Je n'imprime qu'un multiple de 4 pages !", vbCritical End If End Sub
Sub Impr2pages(MesPages As String) ' fonction imprime deux pages utilisée par ImprimeEnLivret ' à adapter selon son format de papier ' d'après simple macro enregistrée d'une impression d'essai Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=MesPages, PageType:= wdPrintAllPages, Collate:=True, Background:úlse, PrintToFile:úlse, PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:907, PrintZoomPaperHeight:839 End Sub ============== Circé http://faqword.free.fr
zuzu a formulé ce mardi :
"Souriane" a remercié :
Doug, thank you so much!!!! It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane == > Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je ne connais pas la belle langue de Shakespeare :-( Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci cordialement, zuzu
Bonjour zuzu,
Je n'ai pas encore eu le temps de regarder la solution de Doug, mais
dans la faq française, il y a la macro d'anacoluthe. Je fais un
copier-coller car a priori la faq est tombée ! :s
================= Pour pouvoir rétablir l'ordre très particulier des pages recto-verso,
voici un petite macro qui recalcule le tout dans l'ordre ; ça dépend un
peu de l'imprimante selon qu'elle imprime par dessus ou par dessous
(pour garder la pile dans le bon sens à la 2ème passe)
Ajouter au besoin des pages blanches pour que le total des pages soit
un multiple de 4.
Public Sub ImprimeEnLivret()
' macro écrite par Anacoluthe
' imprime le document sous forme de livret
' pour imprimante imprimant les pages dans l'ordre inverse
' imprimante inverse : l'ordre des pages de la pile finale est inversé
' utilise les fonctions zoom de l'impression WORD
Dim NbPages, NbFeuilles, i, Rep As Integer
Dim CouplePage As String
NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
NbFeuilles = Int((NbPages + 3) / 4)
If NbFeuilles * 4 = NbPages Then
Rep = MsgBox("Impression recto-verso de " & _
NbFeuilles & " pages ?", vbYesNo, "Livret")
If Rep = vbYes Then
' impression des rectos
For i = 0 To NbFeuilles - 1
CouplePage = Str((4 * NbFeuilles) - (2 * i)) & ";" & Str(2 * i + 1)
Impr2pages (CouplePage)
Next i
Rep = MsgBox(" retourner les feuilles et appuyer sur OK", vbOKOnly)
' impression des versos
For i = 0 To NbFeuilles - 1
CouplePage = Str(2 * i + 2) & ";" & Str((4 * NbFeuilles) - (2 * i) - 1)
Impr2pages (CouplePage)
Next i
End If
Else
MsgBox " Je n'imprime qu'un multiple de 4 pages !", vbCritical
End If
End Sub
Sub Impr2pages(MesPages As String)
' fonction imprime deux pages utilisée par ImprimeEnLivret
' à adapter selon son format de papier
' d'après simple macro enregistrée d'une impression d'essai
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages,
Item:=wdPrintDocumentContent, Copies:=1, Pages:=MesPages, PageType:=
wdPrintAllPages, Collate:=True, Background:úlse, PrintToFile:úlse,
PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:907,
PrintZoomPaperHeight:839
End Sub
==============
Circé
http://faqword.free.fr
zuzu a formulé ce mardi :
"Souriane" a remercié :
Doug, thank you so much!!!!
It did the job very well. And in less than time that I was
expecting!
Merci mille fois!
Souriane
== > Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je
ne connais pas la belle langue de Shakespeare :-(
Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci
cordialement, zuzu
Je n'ai pas encore eu le temps de regarder la solution de Doug, mais dans la faq française, il y a la macro d'anacoluthe. Je fais un copier-coller car a priori la faq est tombée ! :s
================= Pour pouvoir rétablir l'ordre très particulier des pages recto-verso, voici un petite macro qui recalcule le tout dans l'ordre ; ça dépend un peu de l'imprimante selon qu'elle imprime par dessus ou par dessous (pour garder la pile dans le bon sens à la 2ème passe) Ajouter au besoin des pages blanches pour que le total des pages soit un multiple de 4.
Public Sub ImprimeEnLivret() ' macro écrite par Anacoluthe ' imprime le document sous forme de livret ' pour imprimante imprimant les pages dans l'ordre inverse ' imprimante inverse : l'ordre des pages de la pile finale est inversé ' utilise les fonctions zoom de l'impression WORD Dim NbPages, NbFeuilles, i, Rep As Integer Dim CouplePage As String NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) NbFeuilles = Int((NbPages + 3) / 4) If NbFeuilles * 4 = NbPages Then Rep = MsgBox("Impression recto-verso de " & _ NbFeuilles & " pages ?", vbYesNo, "Livret") If Rep = vbYes Then ' impression des rectos For i = 0 To NbFeuilles - 1 CouplePage = Str((4 * NbFeuilles) - (2 * i)) & ";" & Str(2 * i + 1) Impr2pages (CouplePage) Next i Rep = MsgBox(" retourner les feuilles et appuyer sur OK", vbOKOnly) ' impression des versos For i = 0 To NbFeuilles - 1 CouplePage = Str(2 * i + 2) & ";" & Str((4 * NbFeuilles) - (2 * i) - 1) Impr2pages (CouplePage) Next i End If Else MsgBox " Je n'imprime qu'un multiple de 4 pages !", vbCritical End If End Sub
Sub Impr2pages(MesPages As String) ' fonction imprime deux pages utilisée par ImprimeEnLivret ' à adapter selon son format de papier ' d'après simple macro enregistrée d'une impression d'essai Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=MesPages, PageType:= wdPrintAllPages, Collate:=True, Background:úlse, PrintToFile:úlse, PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:907, PrintZoomPaperHeight:839 End Sub ============== Circé http://faqword.free.fr
zuzu a formulé ce mardi :
"Souriane" a remercié :
Doug, thank you so much!!!! It did the job very well. And in less than time that I was expecting!
Merci mille fois!
Souriane == > Bonjour,
Ce sujet m'intéresse aussi pour la parution d'un bisannuel, mais je ne connais pas la belle langue de Shakespeare :-( Alors si tu pouvais m'expliquer en résumé ça serait super cool, merci cordialement, zuzu
