> Tous les forums > Forum Bureautique
 Macros pour impression dans Word
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Tabasco13
  Posté le 23/05/2012 @ 11:03 
Aller en bas de la page 
Nouvel astucien

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.

Publicité
m@rina
 Posté le 23/05/2012 à 15:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

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 ?

Tabasco13
 Posté le 23/05/2012 à 15:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

vieuxmonsieur
 Posté le 23/05/2012 à 16:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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.



Modifié par vieuxmonsieur le 23/05/2012 20:42
m@rina
 Posté le 27/05/2012 à 03:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

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.



Modifié par m@rina le 27/05/2012 03:20
Tabasco13
 Posté le 30/05/2012 à 08:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

vieuxmonsieur
 Posté le 30/05/2012 à 10:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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



Modifié par vieuxmonsieur le 30/05/2012 21:04
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
SSD Crucial P3 Plus 1 To (NVMe, PCIe, M.2, 5000 Mo/s) à 49,39 €
49,39 € 75 € -34%
@AliExpress
SSD WD Black SN770 2 To (PCIe Gen4, NMVe M.2, 5150 Mo/s) à 114 €
114 € 130 € -12%
@Cdiscount
Mini PC BMAX B5 Pro A (Ryzen 7 5825U, 16 Go RAM, SSD 512 Go, Windows 11) à 294,99 €
294,99 € 329 € -10%
@Geekbuying
Lego Technic 42156 Peugeot 9X8 24H du Mans Hybrid Hypercar à 124,99 €
124,99 € 159,99 € -22%
@Cdiscount
Vidéo projecteur WANBO Mozart Z1 Pro (Full HD, Android 11, 900 ANSI Lumens, certifié Netflix, entrepôt Europe) à 319 €
319 € 465 € -31%
@Geekbuying
SSD Crucial P3 1 To (NVMe, PCIe, M.2, 3500 Mo/s) à 49,99 €
49,99 € 75 € -33%
@Cdiscount

Sujets relatifs
Creation d' une boucle macro dans fichier EXCEL pour impression
Décaler les marges sous Word pour impression
Impression d'un formulaire dans WORD 2007
choisir une police une fois pour toute dans word
Macro ds Word pour impression document
Pour revenir au sommaire dans Word
Livre traitant des MACROS pour Word et Excel
MACROS DANS WORD 2003
IRM dans word 2003 problèmes d'impression
Macro pour enregister dans WORD
Plus de sujets relatifs à Macros pour impression dans Word
 > Tous les forums > Forum Bureautique