Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Word 2003: publipostage et agraffage après impression

Word 2003: publipostage et agraffage après impression

7 réponses
Avatar
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
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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:úlse, Collate:=True,
Background:= _
False, PrintToFile:úlse, 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

"Bastien" a écrit dans le message de news:

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:úlse, Collate:=True,
Background:= _
False, PrintToFile:úlse, 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



Avatar
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+
Avatar
Geo
Re

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

Quel est le modèle d'imprimante?

--
A+
Avatar
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


"Geo" a écrit dans le message de news:


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+




Avatar
Geo

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.

--
A+

Avatar
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".

@+

"Geo" a écrit dans le message de news:


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.

--
A+





Avatar
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.

--
A+