Application.Dialogs(XlDialogPrint

[Evelynetfrancois]

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

 

[EricS]

RE

si lorsque tu fais tous ces codes tu déclenches à la main l'impression d'une feuille en niveau de gris, essaie les lignes :

Sheets(zone).select
sendkeys "^p %r ^{tab} ^{tab} ^{tab} ^{tab} {tab} {enter} {enter}", -1
'Sheets(zone).printout

j'ai mis la dernière ligne en commentaire au cas où l'essai ne serait pas satisfaisant


au cas où, un autre essai en imprimant feuille à feuille mais sans boite de dialogue (retour au 12/10 9h21 avec ligne sendkeys actualisée)

Private Sub CommandButton1_Click()
retour = MsgBox("Voulez-vous imprimer ", 4 + vbInformation, " Impression ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "A" Then
Feuille.Select
sendkeys "^p %r ^{tab} ^{tab} ^{tab} ^{tab} {tab} {enter} {enter}", -1

End If
Next
Sheets(1).Select
Application.ScreenUpdating = True
End If
End Sub

 

[Evelynetfrancois]

Bonjour Eric$
Malgré divers tentatives dans tous les sens et
au regard dans l'aide VBA
le résultat approche mon souhait mais n'est jamais optimum
si j'arrive (la macro plutôt) 0 trouver les feuilles 0 imprimer
la boite d 'impression persiste a ne considérer que la première feuille
les autres sortent aussi , mais en couleur

ma macro initiale trouvait les feuilles et les imprimait en N et blanc sans problème puisque cette fonction Existe en VBA

Pour le niveau de gris il n'y a rien de précis sachant que cela tient plus du pilote de l'imprimante !!

je vais encore chercher mais cela me semble de plus en plus difficile sachant que j'ai déjà posé cette Q il y a six a sept mois et que personne n'a vraiment trouvait la " combine"
peut être est-ce impossible ………… j'y crois pas , pas en VBA !!! lol

Pour moi l’alternative va peut être , être de copier et de lier chaque tableaux dans leur totalité sous chaque original en couleur et de leur appliquer une mise en forme en niveau de gris
Lune macro pourra aisement allé chercher soit le tableau en couleur soit sa copie en niveau de gris
mais je crains d’alourdir le classeur !!!!


en tout cas je te Remercies très sincèrement pour tout le temps que tu m’as consacré
c’était très sympat de ta part

au plaisir de te lire
Merci encore
Evelynetfrancois