XL 2016 Imprimer en noir et blanc

[Aloha]

Bonjour,

Afin d'économiser de l'encre dans l'imprimante, je voudrais imprimer le tableau dans le classeur ci-attaché avec tout son formatage, mais dénudé de toute couleur (mise en couleur de cellules et couleur par formatage conditionnel.
A cet effet j'ai enregistré une macro copiant le tableau, pour le coller plus bas et y effacer toute couleur, l'imprimer et effaçant à la fin les lignes le contenant.
Lorsque j'analyse le code enregistré, je constate que l'action d'imprimer n'a pas été enregistrée.
Quel bout de code faut-il ajouter pour imprimer?

Bonne journée
Aloha

 

[Marjo2]

Bonjour,
Je trouve la démarche bien compliqué.
Pourquoi ne pas paramétrer l'imprimante ?

 

[Aloha]

Bonjour,
Merci pour la suggestion.
Seulement, si je ne me trompe, -si je ne me trompe- les couleurs seront imprimées en gris, ou non?
Ma façon de procéder ne me semble pas compliqué: tout se passe en une fraction de seconde et je n'ai qu'à appuyer sur un bouton. Sauf que le code n'imprime pas!
Bonne journée
Aloha

 

[Roland_M]

bonjour,

pour imprimer il te manque ceci:

Application.DisplayFullScreen = False ' facultatif
Application.Dialogs(xlDialogPrint).Show
Application.DisplayFullScreen = True ' facultatif

 

[Aloha]

Bonjour,
Merci.
C'est un premier pas: le dialogue pour imprimer s'affiche. Seulement, je voudrais que la sélection soit imprimée sans dialogue.
Bonne journée
Aloha

 

[Roland_M]

re

tout dépend de ta config, sinon pour imprimer direct:

avec une feuille: ActiveSheet.printOut

avec une plage sélectionnée: Selection.PrintOut Copies:=1

 

[Aloha]

Re,
Merci
J'ai intégré ton code, mais Excel imprime les deux tableaux sur une feuille, bien que le deuxième soit défini comme sélection à imprimer. En vois-tu la raison?
Bien à vous
Aloha

 

[Roland_M]

re

EDIT: correction de mon message
je viens d'essayer avec Selection.PrintPreview
et ça semble ok !? j'ai bien un seul aperçu de Range("B49:J83").Select

 

[Aloha]

Re,
Voudrais-tu bien poster ton code avec PrintPreview qui fonctionne?
Lorsque j'active Selection.PrintPreview et que je mets le reste du code en commentaire alors je ne vois pas d'aperçu, mais je vois la feuille avec le tableau original en haut et le tableau copié d'en-dessous sélectionné, mais pas d'aperçu d'impression.
Bien à toi
Aloha

 

[Roland_M]

re

ben avec ta macro !?!

 

[Roland_M]

re

avec celle-ci: (je n'ai rien modifié !)

Sub Imprimer_en_NB()
    Range("B5:J39").Select
    Selection.Copy
    Range("B49").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("B49:J83").Select
    Selection.FormatConditions.Delete
    Selection.PrintPreview
    'Selection.PrintOut Copies:=1
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

 

[Roland_M]

re

aperçu:

 

[Aloha]

Lorsque je colle "ton" code tel quel je n'ai pas d'aperçu mais toujours une feuille imprimée avec les deux tableaux.
Bizarre puisque l'action d'imprimer est désactivée!
Mon Excel est en allemand, mai cela ne doit pas faire la différence.

 

[Roland_M]

re

je n'y comprend rien !
EDIT:
c'est pas possible qu'en l'état ça imprime puisque
'Selection.PrintOut Copies:=1 < ceci est en rem !

perso, je travaille avec Excel 2007 sous Win 7 64b

 

[Aloha]

Moi je travaille normalement sous Windows 10 avec Excel 365 en français, mais comme mon PC ne veut plus démarrer je suis sur Mac et Excel 16.21.1