Bonjour à tous,

J'ai créé 2 macros avec raccourcis clavier dans Word.

Une pour imprimer la 1ere page d'un document en 3 exemplaires sur le bac 2 (feuilles à entête) d'une imprimante en réseau (bureau)
Une pour imprimer la 2eme page du même document en 1 exemplaire sur le bac 1 (feuilles blanches) de la même imprimante.

Le 1er bac est le bac par défaut de cette imprimante.

Dès les macros crées, cela fonctionne.
Après, tout s'imprime mais uniquement sur le bac 1 (bac par défaut)

Quel est le problème et comment le sollutionner ?

En imprimant le contenu des 2 macros, elles sont identiques sauf le n° de page et nombre à imprimer (qui sont corrects).

D'avance merci.

Bonjour,

Difficile de te répondre sans connaître tes macros et sans savoir comment tu procèdes.

Est ce que tu lances les macros pour imprimer ?

Les macros ont été faites par le système rapide (enregistrer macro, procéder aux étapes d'impression, puis terminer macro) en leur octroyant un raccourci clavier que j'utilise par la suite.

Voici ce que cela donne dans les macros:

Sub Macro2()
'
' Macro2 Macro
'
'
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=False, Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=3, Pages:="1", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=False, Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

bonjour tabasco,

je suis loin d'etre un specialiste en macro mais ce que je ne vois pas dans tes codes, me semble t-il, c'est le "bac à feuilles" a selectionner pour l'impression.

a part :

wdPrintDocumentContent, Copies:=1, Pages:="2",

et

wdPrintDocumentContent, Copies:=3, Pages:="1",

ton code est rigoureusement identique.

regarde ici :

http://support.microsoft.com/kb/213815/en-us

http://support.microsoft.com/kb/135791/en-us

et cette discussion :

http://groupes.codes-sources.com/articlefull.aspx?id=166657

d'ou il ressort le code ci-dessous :

Public Sub Imprim_Doc()

With Options

.DefaultTray = "Utiliser config. imprimante"

End With ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:="1"

With Options

.DefaultTray = "Bac 2"

End With

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:="2-"

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=3, Pages:=""

End Sub

Pour affecter la macro a un bouton :

Clic droit dans une barre d’outils : Personnaliser, Onglet : Commandes

Dans la liste Categorie, selectionnez :

Macros à droite et la faire glisser dans la barre d’outils de ton choix.

Clic droit sur le bouton ajouté (toujours avec la boite de dialogue ouverte).

Tu peux choisir de renommer l’icône ou afficher une image.

en esperant que ca solutionne ton probleme, car encore une fois les macros ce n'est pas ma tasse de the.

Bonsoir,

Effectivement, dans cette macro, aucune indication de bac.

L'indication de bac avec Word passe par la mise en page, et non directement à l'impression. Et comme pour n'importe quelle mise en page, il faut préciser la section (s'il y en a plusieurs, à moins qu'on souhaite la même chose pour toutes les sections.

Et comme pour la mise en page de chaque section, on peut avoir une mise en page différente pour la première page et pour les autres, ce qui donnerait, à peu près (à ajouter avant les instructions d'impression) :

With ActiveDocument.Sections(1).PageSetup
.FirstPageTray = wdPrinterUpperBin
.OtherPagesTray = wdPrinterLowerBin
End With

Dans mon exemple, la première page sera imprimée avec les feuilles du bac du haut, et les autres pages avec celles du bac du bas. A paramérer en fonction de ton imprimante.

Lorsque tu saisis le signe = tu auras une liste déroulante te proposant la liste des bacs.

Bojour,

J'ai beau essayer je n'y arrive pas.

Sachant que l'imoprimante est en réseau, qu'il y a 4 bacs et que voici comment elle s"est enregistrée automatiquement, comment doit-elle être exactement ?

Sub Macro1()
'
' Macro1 Macro
'
'
With Options
.DefaultTray = "Magasin2"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=3, Pages:="1", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=False, Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
With Options
.DefaultTray = "Magasin1"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=False, Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End With
ActiveDocument.PrintOut Range:=wdprintOfpages, Copies:=1, Pages:=""
End Sub

re,

Si tu veux piloter l'impression sur différents Bacs sans intervention de l'utilisateur (pas de boite de dialogue) tu crée des nouvelles imprimantes paramétrées dans le panneau de config.

Tu déclare 2 imprimantes (une "Bac 1 Couleur sur LPT1:" et une "Bac 2 N&B sur LPT1:") dans "Imprimantes et télécopieurs" de Windows.

Ensuite, il faut configurer chaque imprimante comme souhaité au niveau des bacs.

Sub ImpressionBac1()

ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Bac 1 Couleur sur LPT1:"

Call ImpressionBac2

End Sub

Sub ImpressionBac2()

ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Bac 2 N&B sur LPT1:"

End Sub

Ajout : les macros ci-dessus fonctionnent sous excel 2003