Word 2003: publipostage et agraffage après impression

[Bastien]

Bonjour à tous,

Je fais parti d'un support technique, et je bloque sur la problématique
suivante:

La personne utilise le publipostage pour envoyer des courriers.

Voici sa description du problème:
il a une base de 1000 clients auquel il veut envoyer 7 feuilles.
Il fusionne donc ses documents et les envoient vers son imprimante pour que
cette dernière agrafe les documents par paquets de 7. Il en résulte donc
7*1000 paquets agrafés. Or l'imprimante n'agrafe le paquet de 1000 feuilles
(c'est un cas théorique, ce n'est pas une agrafeuse hydraulique).

Pour apporter une solution, j'ai créé une macro qui envoie 1000 impressions
automatiquement. La voici:

Sub ImpressionSepare()
'
' ImpressionSepare Macro
' Macro créée le 17/10/2006 par Bastien
'
Dim nbpage As Integer
Dim nb As String


' nombre de page du modèle de publipostage
nbpage = 7

' Nom de l'imprimante
ActivePrinter = "Nom de L Imprimante"

For i = 1 To ActiveDocument.Range.Information(wdActiveEndPageNumber) Step
nbpage
'
nb = i & "-" & (i - 1 + nbpage)

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=nb, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0


Next i

End Sub

Mais ça ne marche pas, l'imprimante semble regrouper les différentes
impression en un groupe et donc le problème reste entier.

Je ne suis pas doué en macro et VB et je m'en excuse.

Peut être existe t'il des solutions plus simples, et c'est donc la raison de
mon appel à l'aide.

Y a t'il une erreur dans mon algorithme ou dans la syntaxe de ma macro? Y'a
t'il une fonction dans Word pour arriver au même résultat?

Je vous remercie pour votre aide, et vos critiques.

Bastien

[Bastien]

Je me répond à moi-même,

Quand word fusionne lors du publipostage, il crée des sections.

J'ai modifié ma macro en imprimant ces sections:

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="S" & j, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Avec j qui correspond au numéro de section à imprimer

Même si ça ne marche toujours pas, cela peut être une piste.

Merci

Post by Bastien
Bonjour à tous,
Je fais parti d'un support technique, et je bloque sur la problématique
La personne utilise le publipostage pour envoyer des courriers.
il a une base de 1000 clients auquel il veut envoyer 7 feuilles.
Il fusionne donc ses documents et les envoient vers son imprimante pour
que cette dernière agrafe les documents par paquets de 7. Il en résulte
donc 7*1000 paquets agrafés. Or l'imprimante n'agrafe le paquet de 1000
feuilles (c'est un cas théorique, ce n'est pas une agrafeuse hydraulique).
Pour apporter une solution, j'ai créé une macro qui envoie 1000
Sub ImpressionSepare()
'
' ImpressionSepare Macro
' Macro créée le 17/10/2006 par Bastien
'
Dim nbpage As Integer
Dim nb As String
' nombre de page du modèle de publipostage
nbpage = 7
' Nom de l'imprimante
ActivePrinter = "Nom de L Imprimante"
For i = 1 To ActiveDocument.Range.Information(wdActiveEndPageNumber) Step
nbpage
'
nb = i & "-" & (i - 1 + nbpage)
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=nb, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Next i
End Sub
Mais ça ne marche pas, l'imprimante semble regrouper les différentes
impression en un groupe et donc le problème reste entier.
Je ne suis pas doué en macro et VB et je m'en excuse.
Peut être existe t'il des solutions plus simples, et c'est donc la raison
de mon appel à l'aide.
Y a t'il une erreur dans mon algorithme ou dans la syntaxe de ma macro?
Y'a t'il une fonction dans Word pour arriver au même résultat?
Je vous remercie pour votre aide, et vos critiques.
Bastien

[Geo]

Bonjour à Bastien qui nous a écrit :

Vous avez tiré plus vite que moi pour les sections, j'étais en train de
regarder exactement la même solution,
mais puisqu'elle ne marche pas je me demande s'il ne faut pas fermer en
quelque sorte le fichier d'impression pour déclencher l'agrafeuse.
Si j'ai bien compris votre problème ?

[Bastien]

Merci pour votre réponse,

Je suis d'accord avec vous, il faudrait faire peut être fermer word puis
l'ouvrir à nouveau, mais cela risque de s'avérer assez lourd quand la
personne va envoyer ses 1000 impressions !
Ou comme vous l'entendez, fermer "le fichier d'impression", ce que je
conçoit théoriquement mais que je ne sais pas faire!

Je suis en contact avec Microsoft à ce sujet, qui dans un premier temps a
avancé le fait que le réglage dans les paramètres du pilote était peut être
incorrect ou qu'une mise à jour de ce dernier pourrait apporter une
amélioration.

J'attend de leurs nouvelles, et je ne manquerai pas de vous faire part de
leur réponse.

A bientôt,

Bastien

Post by Geo
Vous avez tiré plus vite que moi pour les sections, j'étais en train de
regarder exactement la même solution,
mais puisqu'elle ne marche pas je me demande s'il ne faut pas fermer en
quelque sorte le fichier d'impression pour déclencher l'agrafeuse.
Si j'ai bien compris votre problème ?
--
A+

[Geo]

Post by Bastien
Merci pour votre réponse,
Je suis d'accord avec vous, il faudrait faire peut être fermer word puis l'ouvrir à
nouveau, mais cela risque de s'avérer assez lourd quand la personne va envoyer ses 1000
impressions !

Le problème est connu avec Publisher :
http://support.microsoft.com/kb/891904
La méthode 4 est particulièrement amusante :
Méthode 4 : créez un fichier PDF dans Publisher et imprimez à partir du
fichier PDF.

Je continue à chercher dans mon coin.

[Bastien]

Merci pour votre aide !

Très intéressante cette kb !

Je ne connais pas le modèle exacte de l'imprimante. Je le demanderai demain.
Cependant le support technique de Xerox n'a pas trouvé de solution pour
cette personne.

"La personne en question a déjà fait agrafer automatiquement des documents
produits par Word ?"

Oui elle agrafe sans problème quand elle imprime "manuellement".

@+

Post by Geo

Post by Bastien
Merci pour votre réponse,
Je suis d'accord avec vous, il faudrait faire peut être fermer word puis
l'ouvrir à nouveau, mais cela risque de s'avérer assez lourd quand la
personne va envoyer ses 1000 impressions !

http://support.microsoft.com/kb/891904
Méthode 4 : créez un fichier PDF dans Publisher et imprimez à partir du
fichier PDF.
Je continue à chercher dans mon coin.
--
A+

[Geo]

"La personne en question a déjà fait agrafer automatiquement des documents produits par
Word ?"
Oui elle agrafe sans problème quand elle imprime "manuellement".

Ok
Donc on ne cherche plus ailleurs.

Peut-être faut-il envisager un truc qui ouvre et ferme Word 1000 fois.
J'aurais quand même quelques craintes pour la gestion de la mémoire.

[Bastien]

Bonjour,

Je n'ai toujours pas de solution mais voici ce que j'ai pu lire sur le site
de Xerox:
MS Office applications may send one job for each set selected.

- If this occurs deselect collate in Office application and select collate
in the PPD

settings.

En déselectionnant l'option "copies assemblées" dans office et en la cochant
dans les options du pilote d'impression, ça ne fonctionne toujours pas
cependant, les envois à l'imprimante sont bien séparés par groupe.

J'en ai donc conclu que le probleme venait du pilote de l'imprimante, et il
n'existe pas de mise à jour sur le site de Xerox.

Quoiqu'il en soit merci bcp pour ton aide Geo,

@+

Bastien

Post by Geo

Post by Bastien
"La personne en question a déjà fait agrafer automatiquement des
documents produits par Word ?"
Oui elle agrafe sans problème quand elle imprime "manuellement".

Ok
Donc on ne cherche plus ailleurs.
Peut-être faut-il envisager un truc qui ouvre et ferme Word 1000 fois.
J'aurais quand même quelques craintes pour la gestion de la mémoire.
--
A+

[Geo]

Post by Bastien
MS Office applications may send one job for each set selected.
- If this occurs deselect collate in Office application and select collate in the PPD
settings.
En déselectionnant l'option "copies assemblées" dans office et en la cochant dans les
options du pilote d'impression, ça ne fonctionne toujours pas cependant, les envois à
l'imprimante sont bien séparés par groupe.

Je suis incapable de comprendre ce qu'ils veulent dire, mais la notion
de "copies assemblées" ne me parait pas être concernée par l'agrafage.
Amha "copies assemblées" est une option pour imprimer plusieurs
exemplaires d'un même document.
l'imprimante imprime la page 1 du premier exemplaire, puis la page 2,
puis...on a ainsi un premier exemplaire complet, puis elle imprime la
page 1 du deuxième exemplaire (identique à l'autre) ....

Dans le cas inverse, elle imprime les n exemplaires de la page 1 puis
les n exemplaires de la page 2 etc.
Cela va nettement plus vite avec une imprimante laser car il y a moins
d'échange et le chargement, en mémoire de l'imprimante, de chaque page
ne se fait qu'une fois.
Et il faut ré-assembler les exemplaires à la main : les paquets sur la
table et on tourne autour. Qui n'a pas fait cela ?

L'agrafage ne peut évidemment se faire que pour les copies assemblées,
mais dans votre cas j'ai compris que les exemplaires étaient tous
différents, il n'y a donc pas de notion d'assemblage.

Un truc à essayer : A partir de l'explorateur de fichiers on peut
directement imprimer. Avez-vous essayé de sélectionner deux ou trois
documents d'un "coup" par cette méthode ?
mais à ne pas utiliser pour tous vos documents à la fois, ce serait
aller au devant d'un plantage quasi garanti.

[Geo]

Re

La personne en question a déjà fait agrafer automatiquement des
documents produits par Word ?

Quel est le modèle d'imprimante?