Bouton impression noir et blanc

[chanteclairix]

Bonjour à vous tous 🙂

Je suis complètement débutant pour ce qui est des macro et, bien que j'ai prévu de me pencher dessus, je n'ai pas encore trouvé le temps.

J'ai pourtant besoin de créer tout de suite un bouton pour imprimer une feuille en noir & blanc et un autre pour imprimer tout le classeur en noir et blanc.

En cherchant j'ai trouvé ces lignes :

Sub impressionNoirEtBlanc()
With Worksheets("Feuil1")
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Je crois que c'est pour une macro. Sauf que je n'y connais strictement rien aux macro 😱 et je n'ai rien réussi à faire avec ces lignes sur ce qu'on appelle 'VBA'.

Pouvez-vous m'expliquez pas à pas comment faire ces boutons (et s'il est possible de le faire sans utiliser de macro - autre que Fichier/imprimer/N&B)

Merci beaucoup de me répondre de façon simple.


PS : j'ai trouvé sur ce forum des posts sur ce sujet mais qui étaient destinés à des personnes qui savent déjà créer des macro...

 

[Staple1600]

Re : Bouton impression noir et blanc

Re

Dans ton classeur exemple
Sub impressionNoirEtBlanc()
With Worksheets("Feuil1") 'ici moi j'ai mis ActiveSheet
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

J'ai point la berlue

Enfin peut importe

 

[Staple1600]

Re : Bouton impression noir et blanc

Si tu veux essayer sans imprimer

Remplace PrintOut par PrintPreview


Et en effet la macro n' imprime pas en NB

sub allsheetsprint()
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PrintOut 
End If
Next sht
End sub

donc a essayer

sub allsheetsprint()' devrait imprimer en NB
'une fois testée en Apercu
'à essayer à l'impression avec 1 classeur qui contient 3 feuilles
'et juste TEST dans A1;C1
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PageSetup.BlackAndWhite = True 
sht.PrintPreviev 
End If
Next sht
End sub

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

Staple : tu prends la mouche alors que mon message t'avertissais, simplement, que j'avais déjà proposé une solution palliative. Relis le message précédent le tien...

Comme l'a dit Céléda dans un message du jour : c'est navrant (LA MARIE elle est moins tendre 😱 dans ses propos avec les "couillus").

Bonne soirée

 

[Staple1600]

Re : Bouton impression noir et blanc

Je prends pas la mouche

Je dis juste que j'ai pas la berlue

Je devrais mettre dans mon profil
que je suis d'un détachement,d'une placidité, extrême en général
et particulièrement sur ce forum.

Il m'en faut plus ...

Mea culpa j'avais point vue ton message
j'avais téléchargé ton exemple
et dans ton exemple
c'était pas ActiveSheet
d'ou mon message

Je n'avais pas du rafraichir mon navigateur.

Mais je reprecise que ce sur ce forum je ne prends jamais la mouche

 

[chanteclairix]

Re : Bouton impression noir et blanc

La fonction preview n'est pas possible apparemment.
J'ai testé avec printout (avé une feuille) et je me suis rendu compte que le noir et blanc n'imprime pas comme je m'y attendais : ça n'imprime pas en niveaux de gris et les trames de fond des cellules ne sont pas marquées.

Je pensais que cela sortirait comme si je faisais une photocopie N&B de ma feuille couleur mais non.

Y-a-t-il moyen d'avoir une rendu 'en niveau de gris' si je me suis fais comprendre ?

(du coup faut que je regarde pour la première formule pour 1 seule feuille si ça fait pareil)

PS : Restez zen 😎

 

[Staple1600]

Re : Bouton impression noir et blanc

Re

Quand on imprime en NB
la qualité est moindre il me semble

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

OK Staple pas de problème 🙂

chanteclairix : peux-tu mettre en application ce que l'on t'a donné ?

Autrement cela fera un pelote comme dirait l'ami JP 🙂 (un fil qui tourne en rond)

Ce que je t'ai proposé fonctionne parfaitement chez moi

A+

 

[Staple1600]

Re : Bouton impression noir et blanc

Re

Sub test()
ActiveSheet.PrintPreview
End Sub

normalement cela ouvre le mode Aperçu avant Impression

 

[jeanpierre]

Re : Bouton impression noir et blanc

Bonsoir à tous, ce fil, le forum,

Au risque de dire une bétise, mais bon....

Si l'on imprime en "noir et blanc", tout le fond de feuille, les niveaux de gris donc disparaissent....

Mais pas d'imprimante, ici, pour tester.

Bonne soirée à vous.

Jean-Pierre

Edit : Salut, Jean-Claude, évidemment, pendant que je tapais ce post, tu en profites pour parler de moi.

 

[Staple1600]

Re : Bouton impression noir et blanc

Re

Oui c'est ce j'allais dire

en NB on perd pleins de choses

Peut-etre devrait-tu imprimer en couleurs
mais avec uniquement une mise en forme NB

police noire
quadrilllage noir
trame de fond gris

 

[chanteclairix]

Re : Bouton impression noir et blanc

Straple>
Qualité moindre... Ma case avec texte écrit en noir et fond rouge ne ressort pas texte noir sur fond gris comme je l'espérais même texte noir sur fond blanc. Et ça me va pas 🙁
Le preview ne veut peut-être pas fonctionner justement parce que c'est une impression multiple ?

JCGL> Les deux codes ci-dessous fonctionne...

Sub impressionNoirEtBlancI()
With ActiveSheet 'pour la feuille active
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Sub allsheetsprint()
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PageSetup.BlackAndWhite = True
sht.PrintOut
End If
Next sht
End Sub

... mais ne donne pas le rendu que je souhaitais (notamment pour la couleur de fond qui est absente !)

Vous voyez une solution ?

[EDIT]

Si l'on imprime en "noir et blanc", tout le fond de feuille, les niveaux de gris donc disparaissent....

Oui mais ya pas une fonction 'niveau de gris' pour éviter cette perte du fond de feuille ?

 

[Staple1600]

Re : Bouton impression noir et blanc

re

1) si tu mets des couleurs
pourquoi imprimer en NB?

2) Ne mets aucune couleur autre que Noir Blanc Gris
et impression en NB

Je ne vois que cela à te conseiller

 

[Staple1600]

Re : Bouton impression noir et blanc

re

A part NB
ou qualité brouillon

je ne vois d'impression en niveaux de gris

ou alors il faut régler cela directement dans le logiciel d'impression de ton imprimante

 

[chanteclairix]

Re : Bouton impression noir et blanc

Je mets des couleurs afin que mon fichier (qui est relativement complexe) soit plus simple à utiliser. Mais je veux imprimer en Niveau de gris sans faire 'fichier, imprimer, propriété de l'imprimante, imprimer en niveau de gris' à chaque fois.

D'après vous il n'y a pas moyen de faire autrement ? (snif)

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

chanteclairix : il me semble que tu veux le beurre et l'argent du beurre

Staple : d'accord avec tes derniers messages

Mon ami JP : Moi, dire du mal te toi, JAMAIS (ou à de très rares exceptions 🙂)

Bonne soirée à tous