macro pour imprimer

Colle ce qui suit dans le ThisWorkbook de ton classeur

à chaque fois que tu lances l'impression de ton document :
2 documents couleurs + 2 documents en noir et blanc !

'--------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet
Dim Arr
Arr = Array(True, False)

Application.EnableEvents = False
For Each Elt In Arr
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.BlackAndWhite = Elt
End With
.PrintOut , , 2
End With
Next
Next
Application.EnableEvents = True
Cancel = True

End Sub
'--------------------------------



<keritim@gmail.com> a écrit dans le message de news:
1165403241.100057.317780@73g2000cwn.googlegroups.com...
bonjour, je voudrai savoir si on pouvai maider pour fair une macro pour
imprimer 2 fois un doc en couleur puit 2 fois le meme doc en noir et
blanc tt sa dans une macro j'ai f sa en metran l'enregistreur de macro
mais sa me f 4 couleur merci d'avance

merci sa marche mais c possible de le metre en macro pour cree un
bouton qui
quand je click dessu fasse cela
car g plein de document a fair commme cela

Tu copies ceci dans un module standard:

'--------------------------
Sub Imprimer_Couleur_NoirEtBlanc()

Dim Sh As Worksheet
Dim Arr
Arr = Array(True, False)

Application.EnableEvents = False
For Each Elt In Arr
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.BlackAndWhite = Elt
End With
.PrintOut , , 2
End With
Next
Next
Application.EnableEvents = True
End Sub
'-----------------------------




<keritim@gmail.com> a écrit dans le message de news:
1165478889.784238.285670@j44g2000cwa.googlegroups.com...
merci sa marche mais c possible de le metre en macro pour cree un
bouton qui
quand je click dessu fasse cela
car g plein de document a fair commme cela