Word fusion et agrafage
Fermé
taunis
-
3 août 2011 à 14:18
85stl Messages postés 1 Date d'inscription vendredi 24 mai 2013 Statut Membre Dernière intervention 24 mai 2013 - 24 mai 2013 à 16:28
85stl Messages postés 1 Date d'inscription vendredi 24 mai 2013 Statut Membre Dernière intervention 24 mai 2013 - 24 mai 2013 à 16:28
A voir également:
- Word fusion et agrafage
- Word et excel gratuit - Guide
- Espace insécable word - Guide
- Supprimer une page word - Guide
- Organigramme word - Guide
- Suivi des modifications word - Guide
2 réponses
m@rina
Messages postés
21080
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
15 novembre 2024
11 351
Modifié par m@rina le 4/08/2011 à 08:26
Modifié par m@rina le 4/08/2011 à 08:26
Bonsoir,
Il faut lancer l'impressiion autant de fois que tu as de sections. C'est ce que fait la macro suivante, en utilisant les paramètres définis de l'imprimante active :
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
Il faut lancer l'impressiion autant de fois que tu as de sections. C'est ce que fait la macro suivante, en utilisant les paramètres définis de l'imprimante active :
Sub imprim() Dim ntotal ntotal = ActiveDocument.Sections.Count For x = 1 To ntotal ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="s" & x Next End Sub
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
85stl
Messages postés
1
Date d'inscription
vendredi 24 mai 2013
Statut
Membre
Dernière intervention
24 mai 2013
1
24 mai 2013 à 16:28
24 mai 2013 à 16:28
merci pour le tip
mais j'obtiens le résultat 1 fois section par section, une autre groupée
imprimante utilisée : photocopieur Konica Minolta série Bizhub
mais j'obtiens le résultat 1 fois section par section, une autre groupée
imprimante utilisée : photocopieur Konica Minolta série Bizhub
4 août 2011 à 00:04
For x = 1 To ntotal
par
For x = 1 To 2
m@rina