Macro pour gérer un double bac (w97)

Bonjour Jeanne

-----Message d'origine-----
Bonjour,

Peut-on gérer le passage d'un bac à l'autre de
l'imprimante par une macro affectée à un bouton ?

Voici un exemple de macro à adapter à ton cas:
Sub PrintAvecPlusieursBacs(PageFin As Integer)
' Exemple de macro pour imprimer de la page 1 à la PageFin
' la page 1 est imprimée sur un papier particulier
' Le nom du bac dépend de l'imprimante intallée
' Voir dans Outils Options Impression dans "bac par
défaut"
' ce qu'il est possible de mettre dans DefaultTray
With Options
.DefaultTray = "Bac Multifonctions"
'.PrintDraft = True
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="1"
If PageFin < 1 Then Exit Sub

With Options
.DefaultTray = "Utiliser config. imprimante"
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="2-4"

With Options
.DefaultTray = "Automatique"
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="5-" & Str(PageFin)

End Sub

Il faut ensuite associer un bouton à la macro que tu auras
faite.

A+

ça marche.

Merci

-----Message d'origine-----
Bonjour Jeanne

-----Message d'origine-----
Bonjour,

Peut-on gérer le passage d'un bac à l'autre de
l'imprimante par une macro affectée à un bouton ?

Voici un exemple de macro à adapter à ton cas:
Sub PrintAvecPlusieursBacs(PageFin As Integer)
' Exemple de macro pour imprimer de la page 1 à la PageFin
' la page 1 est imprimée sur un papier particulier
' Le nom du bac dépend de l'imprimante intallée
' Voir dans Outils Options Impression dans "bac par
défaut"
' ce qu'il est possible de mettre dans DefaultTray
With Options
.DefaultTray = "Bac Multifonctions"
'.PrintDraft = True
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="1"
If PageFin < 1 Then Exit Sub

With Options
.DefaultTray = "Utiliser config. imprimante"
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="2-4"

With Options
.DefaultTray = "Automatique"
End With
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages,
Pages:="5-" & Str(PageFin)

End Sub

Il faut ensuite associer un bouton à la macro que tu
auras

faite.

A+
.

Bonjour Jeanne

ça marche.

Merci pour ce retour,
en matière d'imprimante c'est tellement dépendant du contexte
matériel.

--

A+