E
Evelynetfrancois
Guest
bonjour tous le monde
Private Sub Imprimer_Magasins_NB()
retour = MsgBox("Voulez-vous imprimer BLA BLA BLA en NOIR et BLANC ? ", 4 + vbInformation, " Impression - ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "Z" Then
With Feuille.PageSetup
.BlackAndWhite = True
End With
Feuille.PrintOut
End If
Next
End If
End Sub
Bonjour , cette macro me permait d'imprimer en N et B les feuilles contenent "Z" en celulle ("A1")..
Pour imprimer en niveau de gris je passerais bien par la boite :
Application.Dialogs(XlDialogPrint).Show !!!(merci Eric C)
seulement cette boite apparait a chaques feuilles trouvées !!!!!!!
auriez-vous une idées judicieuse !!
merci pour votre secours
merci d'avance pour le temp que vous me consacrez , bonne a prem
E et f
Private Sub Imprimer_Magasins_NB()
retour = MsgBox("Voulez-vous imprimer BLA BLA BLA en NOIR et BLANC ? ", 4 + vbInformation, " Impression - ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "Z" Then
With Feuille.PageSetup
.BlackAndWhite = True
End With
Feuille.PrintOut
End If
Next
End If
End Sub
Bonjour , cette macro me permait d'imprimer en N et B les feuilles contenent "Z" en celulle ("A1")..
Pour imprimer en niveau de gris je passerais bien par la boite :
Application.Dialogs(XlDialogPrint).Show !!!(merci Eric C)
seulement cette boite apparait a chaques feuilles trouvées !!!!!!!
auriez-vous une idées judicieuse !!
merci pour votre secours
merci d'avance pour le temp que vous me consacrez , bonne a prem
E et f