OVH Cloud OVH Cloud

Changement de Bac

77 réponses
Avatar
o.0
Est-ce que le changement de bac est censé être automatique sous Word
lorsqu'il y a un saut de section ?

10 réponses

1 2 3 4 5
Avatar
o.0
C'est curieux parce que ça fonctionne sur une bécane ici sans macro mais pas
sur les autres...

"JièL Goubert" a écrit dans le
message de news:ufhS$
Bonjoir(c) o.0

Bon, c'est plus clair, même si c'est un peut surprenant comme
fonctionnement

Geo à sorti de derrière les fagots une macros qui me semble faire ce que
tu

as besoin, je lui laisse le soin de t'en parler un peu mieux, je ne sais
plus dans quel fil elle se trouve (...et je sais même pas si elle est pas
un

peu superfétatoire :-ppp, pendant les vacances les AMIS se relachent un
peu)


AMIS : Anti Macros Inutilement Superfétatoire

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Le 30/07/2004 16:18 vous avez écrit ceci :
Bé oui mé

En fait j'ai des documents qui proviennent d'un Centre de frappe...

Ces documents sont formatés de la sorte :

1ere page = page d'entête -> toujours sur Bac 1
Pages suivantes - > toutes sur Bac 2 sauf s'il existe un saut de section
à


l'intérieur du doc..alors retour sur bac 1 et au prochain saut de
section


retour sur Bac 2.

Est-ce plus clair ? Il me faudrait une config générale pour tous ces
documents.




Avatar
Geo
Bonjour o.0


C'est curieux parce que ça fonctionne sur une bécane ici sans macro
mais pas sur les autres...


Ce qui laisserait supposer que la bac d'imprimante est programmé dans
le modèle, intéressant et à creuser.
Pour l'instant il y a trois enseignements à cette conversation :
1- Lorsque le souhait est exprimé clairement (et non la solution) on
gagne un temps fou (j'allais écrire un temps four )
2- JièL propose des macros superfétatoires sous réserve du point
trois.
3- Une piste à suivre sur les possibilités des modèles à associer un
bac à une section.
Nous faudrait une magicienne ;-)

--

A+

Avatar
Geo
C'est curieux parce que ça fonctionne sur une bécane ici sans macro
mais pas sur les autres...


Ce qui laisserait supposer que la bac d'imprimante est programmé
dans

le modèle, intéressant et à creuser.


Dans
http://support.microsoft.com/?scid=kb;fr;469857
on nous dit :
------------- début de copie
Le modèle Normal.dot contient les éléments suivants :

1. Les formats personnalisés (police par défaut, marges par défaut,
alignement par défaut, les bordures par défaut)
2. Les styles.
3. Les insertions automatiques que l'on a créées.
4. Les macros que l'on a créées.
5. Les menus et boutons de barre d'outils personnalisés.
-------------- fin de copie

Donc il nous reste :
les styles, mais là pas vu de rapport avec l'imprimante ou le format
du papier.
Reste : les macros
Pourquoi pas une petite macro automatique ?

--
A+


Avatar
Geo
Bonjour o.0

Ces documents sont formatés de la sorte :

1ere page = page d'entête -> toujours sur Bac 1
Pages suivantes - > toutes sur Bac 2 sauf s'il existe un saut de
section à l'intérieur du doc..alors retour sur bac 1 et au prochain
saut de section retour sur Bac 2.


Voici une macro qui pourrait être automatisée en la lançant avec
l'évènement before print.
Elle va un peu au delà de ce que tu as demandé car je soupçonne que ta
description soit incomplète
En pratique on peut essayer les différentes valeurs (placées en
commentaires) puis regarder dans format Mise en page ce que ça donne
comme bac sélectionné.
C'est probablement intimement lié à l'imprimante utilisée, mais je
n'ai pas le matériel pour tout tester, chez moi S1 et S2 donnent le
bac automatique par exemple.

Sub SectionsAvecBacsAlternés()
Dim i As Integer
Const P1 As Long = wdPrinterEnvelopeFeed
Const S1 As Long = wdPrinterDefaultBin
Const P2 As Long = wdPrinterTractorFeed
Const S2 As Long = wdPrinterLargeCapacityBin
Const P3 As Long = wdPrinterFormSource
Const S3 As Long = wdPrinterLargeCapacityBin

' choix de bacs :
'wdPrinterAutomaticSheetFeed
'wdPrinterDefaultBin
'wdPrinterEnvelopeFeed
'wdPrinterFormSource
'wdPrinterLargeCapacityBin
'wdPrinterLargeFormatBin
'wdPrinterLowerBin
'wdPrinterManualEnvelopeFeed
'wdPrinterManualFeed
'wdPrinterMiddleBin
'wdPrinterOnlyBin
'wdPrinterPaperCassette
'wdPrinterSmallFormatBin
'wdPrinterTractorFeed
'wdPrinterUpperBin
With ActiveDocument.Sections(1).PageSetup
'première page du document
.FirstPageTray = P1
' le reste de la première section
.OtherPagesTray = S1
End With
For i = 2 To ActiveDocument.Sections.Count
If i Mod 2 = 1 Then
With ActiveDocument.Sections(i).PageSetup
.FirstPageTray = P3
.OtherPagesTray = S3
End With
Else
With ActiveDocument.Sections(i).PageSetup
.FirstPageTray = P2
.OtherPagesTray = S2
End With
End If
Next
End Sub

Avatar
o.0
Bonjour,

Oui il semblerait et on me l'a confirmé que tous les documents provenant de
ce centre de frappe sont "programmés" pour imprimer sur bac 1 ou bac 2 en
fonction des sauts de section...mais alors : pquoi cela ne fonctionne t-il
pas avec certaines imprimantes ?


"Geo" a écrit dans le message de
news:
Bonjour o.0


C'est curieux parce que ça fonctionne sur une bécane ici sans macro
mais pas sur les autres...


Ce qui laisserait supposer que la bac d'imprimante est programmé dans
le modèle, intéressant et à creuser.
Pour l'instant il y a trois enseignements à cette conversation :
1- Lorsque le souhait est exprimé clairement (et non la solution) on
gagne un temps fou (j'allais écrire un temps four )
2- JièL propose des macros superfétatoires sous réserve du point
trois.
3- Une piste à suivre sur les possibilités des modèles à associer un
bac à une section.
Nous faudrait une magicienne ;-)

--

A+







Avatar
o.0
en la lançant avec l'évènement before print.


Euh c'est-à-dire ?
Parce que je viens d'essayer la macro, (executée après ouverture des fameux
docs) et non rien...toujours pareil.

J'ai oublié qqchose sans doute mais quoi ?

"Geo" a écrit dans le message de
news:%
Bonjour o.0

Ces documents sont formatés de la sorte :

1ere page = page d'entête -> toujours sur Bac 1
Pages suivantes - > toutes sur Bac 2 sauf s'il existe un saut de
section à l'intérieur du doc..alors retour sur bac 1 et au prochain
saut de section retour sur Bac 2.


Voici une macro qui pourrait être automatisée en la lançant avec
l'évènement before print.
Elle va un peu au delà de ce que tu as demandé car je soupçonne que ta
description soit incomplète
En pratique on peut essayer les différentes valeurs (placées en
commentaires) puis regarder dans format Mise en page ce que ça donne
comme bac sélectionné.
C'est probablement intimement lié à l'imprimante utilisée, mais je
n'ai pas le matériel pour tout tester, chez moi S1 et S2 donnent le
bac automatique par exemple.

Sub SectionsAvecBacsAlternés()
Dim i As Integer
Const P1 As Long = wdPrinterEnvelopeFeed
Const S1 As Long = wdPrinterDefaultBin
Const P2 As Long = wdPrinterTractorFeed
Const S2 As Long = wdPrinterLargeCapacityBin
Const P3 As Long = wdPrinterFormSource
Const S3 As Long = wdPrinterLargeCapacityBin

' choix de bacs :
'wdPrinterAutomaticSheetFeed
'wdPrinterDefaultBin
'wdPrinterEnvelopeFeed
'wdPrinterFormSource
'wdPrinterLargeCapacityBin
'wdPrinterLargeFormatBin
'wdPrinterLowerBin
'wdPrinterManualEnvelopeFeed
'wdPrinterManualFeed
'wdPrinterMiddleBin
'wdPrinterOnlyBin
'wdPrinterPaperCassette
'wdPrinterSmallFormatBin
'wdPrinterTractorFeed
'wdPrinterUpperBin
With ActiveDocument.Sections(1).PageSetup
'première page du document
.FirstPageTray = P1
' le reste de la première section
.OtherPagesTray = S1
End With
For i = 2 To ActiveDocument.Sections.Count
If i Mod 2 = 1 Then
With ActiveDocument.Sections(i).PageSetup
.FirstPageTray = P3
.OtherPagesTray = S3
End With
Else
With ActiveDocument.Sections(i).PageSetup
.FirstPageTray = P2
.OtherPagesTray = S2
End With
End If
Next
End Sub




Avatar
Geo
Bonjour o.0


Bonjour,

Oui il semblerait et on me l'a confirmé que tous les documents
provenant de ce centre de frappe sont "programmés" pour imprimer sur
bac 1 ou bac 2 en fonction des sauts de section...


Ah c'est déja plus clair,
tu avais fini par semer le doute dans nos cerveaux surchauffés.

mais alors : pquoi
cela ne fonctionne t-il pas avec certaines imprimantes ?


probablement parce que ce ne sont pas les mêmes imprimantes :-)
Comme je le disais dans un autre courriel, tel paramètre indique tel
bac sur une imprimante, un autre sur une autre.
Par exemple, sur mon imprimante il n'y a pas de bac 1 et de bac 2, ils
s'appellent multifonction et je ne sais trop quoi.
Donc cette imprimante peut très bien faire correspondre le bac par
défaut dans les deux cas.
Dès qu'on touche aux imprimantes ça devient complexe car il n'y a pas
de standard.

A+

Avatar
Geo
Bonjour o.0


en la lançant avec l'évènement before print.


Euh c'est-à-dire ?
Voir l'aide de DocumentBeforePrint

La acro mettrait des bacs différents selon la section au moment de
l'impression.

Parce que je viens d'essayer la macro, (executée après ouverture des
fameux docs) et non rien...toujours pareil.

J'ai oublié qqchose sans doute mais quoi ?


sans doute ce que j'écrivais :

En pratique on peut essayer les différentes valeurs (placées en
commentaires) puis regarder dans format Mise en page ce que ça
donne


comme bac sélectionné.
C'est probablement intimement lié à l'imprimante utilisée, mais je
n'ai pas le matériel pour tout tester, chez moi S1 et S2 donnent le
bac automatique par exemple.



Il reste qu'il faut faire le test par type d'imprimante.
On pourrait évidemment compléter la macro en récupérant le type
d'imprimante et en adaptant les valeurs de paramètres.
Mais il faut connaître les valeurs adéquates de toutes façon.
Ca devient un peu compliqué.


--

A+


Avatar
o.0
Oui mais toutes les imprimantes ici ont le même nom pour les bacs.
Bac 1 & Bac 2 ce qui explique sans doute la "programmation" du modèle de
document qui nous est destiné.

"Geo" a écrit dans le message de
news:u$
Bonjour o.0


Bonjour,

Oui il semblerait et on me l'a confirmé que tous les documents
provenant de ce centre de frappe sont "programmés" pour imprimer sur
bac 1 ou bac 2 en fonction des sauts de section...


Ah c'est déja plus clair,
tu avais fini par semer le doute dans nos cerveaux surchauffés.

mais alors : pquoi
cela ne fonctionne t-il pas avec certaines imprimantes ?


probablement parce que ce ne sont pas les mêmes imprimantes :-)
Comme je le disais dans un autre courriel, tel paramètre indique tel
bac sur une imprimante, un autre sur une autre.
Par exemple, sur mon imprimante il n'y a pas de bac 1 et de bac 2, ils
s'appellent multifonction et je ne sais trop quoi.
Donc cette imprimante peut très bien faire correspondre le bac par
défaut dans les deux cas.
Dès qu'on touche aux imprimantes ça devient complexe car il n'y a pas
de standard.

A+




Avatar
Geo
Bonjour o.0


Oui mais toutes les imprimantes ici ont le même nom pour les bacs.
Bac 1 & Bac 2 ce qui explique sans doute la "programmation" du
modèle

de document qui nous est destiné.


Là on n'utilise pas les noms des bacs mais des constantes.
Par exemple : wdPrinterEnvelopeFeed peut correspondre au bac 1 sur une
imprimante, à bac par défaut sur une autre etc.
Pour s'en convaincre, prendre un document sur un poste pour lequel ça
marche pas.
Se mettre dans la section 1 et regarder dans format mise en page
alimentation papier
Et voir quels sont les bacs sélectionnés.
Aller sur la section 2 et faire la même chose.
Même manip sur la machine où ça marche et regarder les mêmes choses.
Il y a bien une différence, non ?


--

A+

1 2 3 4 5