XL 2016 Imprimer en noir et blanc

Aloha

XLDnaute Accro
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
 

Pièces jointes

  • Imprimer en noir et blanc.xlsm
    23.4 KB · Affichages: 12

Roland_M

XLDnaute Barbatruc
re et dern pour aujourd'hui !

voir si ça convient !? ne pas hésiter si des questions !
bonne nuit à tous.

EDIT:
j'ai renommé la feuille avec les données 'Feuil1' en 'Source" (c'est plus parlant)
j'ai déplacé %=AUJOURDHUI() d'une colonne à gauche
car le texte déborde sur la colonne droite et n'apparaît pas complet sur la feuille d'impression !
 

Pièces jointes

  • Imprimer en noir et blanc RolM.xlsm
    29.8 KB · Affichages: 10
Dernière édition:

Aloha

XLDnaute Accro
Bonsoir,

Enfin j'ai pu tester ton fichier.
Cela fonctionne, chapeau! Merci beaucoup!
Seulement, le code s'est allongé considérablement! Tu es un véritable artiste en VBA!
J'espère que j'arriverai à l'adapter pour les autres feuilles.

Bonne soirée
Aloha
 

Roland_M

XLDnaute Barbatruc
Bonsoir,

le code s'est allongé mais la macro pour l'impression y est pour beaucoup, elle est standard !
tu n'auras rien à y modifier, il suffit de lui passer les paramètres qui conviennent pour l'utiliser !

si tu as un problème tu pourras toujours revenir !

bonne nuit !
 

Aloha

XLDnaute Accro
Bonjour,

Le formatage de la feuille à imprimer et prévisualisée n'est pas toujours optimal; p. ex. le tableau n'occupe pas toute la page alors qu'il pourrait le faire.

Pour tester j'ai tout déréglé dans le dialogue d'impression (marges, orientation, impression sur une seule page) et j'ai enregistré les nouveaux réglages. Ce qui donne une macro très longue, et lorsque je veux l'exécuter j'ai une erreur d'impression.
Comment faire pour faire mieux et plus simple?

Bonne journée
Aloha
 

Roland_M

XLDnaute Barbatruc
Bonjour,

avec le classeur que je t'ai mis j'ai ceci ! pas possible de faire mieux !?
j'espère que tu n'as pas modifier les paramètres destinés à la macro d'impression ? comme paysage par exemple . . .
car la macro fait tout ça sur une page, orientation, marge mini . . .
elle fonctionne dans tous mes programmes et les programmes que j'ai fais pour mon fils à son entreprise depuis longtemps !
 

Pièces jointes

  • i1.jpg
    i1.jpg
    293.9 KB · Affichages: 7
Dernière édition:

Aloha

XLDnaute Accro
Bonjour,
Je n'avais pas modifié les paramètres mais l'un de mes tableaux n'était pas imprimé correctement.
Depuis que j'avais posé la question ici tout à l'heure j'avais essayé de trouver une solution en prenant ton code et en y intégrant des paramètres trouvés sur Internet (ceux de PageSetup) et du code enregistré en macro.

Ce qui a donné ceci:

VB:
Private Sub CommandButton2_Click()

'Imprimer en N&B

    Application.ScreenUpdating = False
    Range("B5:J39").Copy Destination:=Range("B49")
    Range("B49:J83").Select: Selection.Interior.ColorIndex = xlNone
    ActiveSheet.PageSetup.PrintArea = "B49:J83"
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .CenterHorizontally = True
        .CenterVertically = True
    End With
    Selection.PrintPreview
    'Selection.PrintOut Copies:=1
    Application.ScreenUpdating = True
    Selection.Delete Shift:=xlUp: Range("A1").Select
End Sub

Et cela semble fonctionner.
Que penses-tu de ce code?
A+
Aloha
 

Roland_M

XLDnaute Barbatruc
re

je n'en sais rien du tout !
perso sans classeur avec ton tableau qui pose problème, que je ne connais pas, je ne saurais pas dire !
je ne peux pas passer sans cesse d'un code à l'autre !

pour moi il faut être méthodique (c'est ce qui manque pour beaucoup)
faut pas demander un code puis tout foute en l'air et demander mon avis !

on doit rester sur ton classeur avec ma macro puisque ça fonctionnait
et si tu as un problème avec un tableau, tu m'expliques ce qui ne vas pas !
avec si possible un exemple clair ou une image qui représente le problème !
et toujours avec le même classeur, et les mêmes codes, on regarde ce que l'on peut faire !
sinon on ne peut pas suivre !
 

eriiic

XLDnaute Barbatruc
Bonjour,

Je trouve que tu te compliques la vie à dupliquer ton tableau.
Duplique la feuille que tu supprimes à la fin :
VB:
Sub impr_NB()
    Sheets("Feuil1").Copy Before:=Sheets(1)
    With ActiveSheet
        .Name = "tmp"
        With .Cells
            .FormatConditions.Delete
            With .Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            With .Font
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
            End With

        End With
        .PrintOut
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
End Sub
A toi de compléter si tu ne veux qu'une partie ou changer la mise en page
eric

Edit : Bruno, j'ai cru comprendre qu'il ne veut pas les niveaux de gris non plus
Ah si, c'est en N&B pur, bien vu :cool: Par contre je viens seulement de voir que ce fil avait 3 pages, j'ai peut-être raté des trucs
 
Dernière édition:

Discussions similaires