Printbutton tabblad kleur veranderen

[Mickeys Monkey]

Ik heb een Excel sheet gemaakt en dit werkt helemaal naar behoren.
Toch zou ik het graag nog wat mooier of beter willen hebben.

Ik heb op alle bladen een printbutton geplaatst en met deze button moet het blad afgedrukt worden, dit is geen probleem met een macro natuurlijk, maar ik zou dan ook graag de tabkleur van het blad veranderd willen zien in rood.
Zodat je kunt zien dat dit blad afgedrukt is.
Dit voorkomt mij dat er 6 collega's steeds hetzelfde blad afdrukken en ik dus zes dezelfde A4 tjes aangeleverd krijg. Zonde van het papier en de inkt. Is het tabblad rood, dan is het al en keer afgedrukt.

Ik voeg het document toe en heb alle beveiligen er af gehaald en de print macro's verwijderd.
Het tabblad januari heb ik handmatig rood gemaakt.

Wie weet dit ?

 

[Hoornvan]

Mickeys Monkey,

Dit heb ik met de recorder opgenomen, als je dit dan onder de knop van "Maart" zet.

With ActiveWorkbook.Sheets("Maart").Tab
        .Color = 255
End With

 

[Mickeys Monkey]

Bedankt voor het antwoord.

Ik vrees dat mijn kennis niet zo ver gaat.
Ik krijg dan een copileerfout: Ongeldig buiten procedure

 

[jpvs]

Hier een voorbeeld.
Een NADEEL (kan misschien iemand anders oplossen?).
Als je het vinkje plaatst moet een cel selecteren op het blad (anders werkt de macro niet?).

Vergeet je de cel te selecteren word de tab niet gekleurd???

Werkt met de macro in ThisWorkbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Range("D4").Value = "1" Then
       ' Zet de kleur op ROOD
      ActiveSheet.Tab.ColorIndex = 3
    Else
        ' Zet de kleur weer nogmaal
      ActiveSheet.Tab.ColorIndex = -4142
End If
End Sub

 

[Superzeeuw]

M&M,

Als je een printmacro maakt die aan jouw knop komt te hangen dan is het toevoegen van onderstaande regel voldoende om het te laten werken en daarmee is het probleem van jpvs ook opgelost.

ActiveSheet.Tab.ColorIndex = 3

 

[Mickeys Monkey]

@ jpvs Bedankt voor het antwoord. Deze is het bijna.

@ Superzeeuw Ook bedankt voor het antwoord. Deze werkt :thumb:

Geweldig, dit scheelt ons onnodig veel papier / inkt en daardoor het milieu.

 

[snb]

Zou het niet handiger zijn om door de printaktie de printknop te laten verdwijnen ?

Private Sub knop_print_click()
   activesheet.printout
   knop_print.visible=false
End Sub

 

[jpvs]

Misshien de simpelste oplossing met een Wisselknop of Toggle button.

Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "Blad nog printen." Then
    Printen
    'MsgBox "Blad word geprint."
    Me.CommandButton1.Caption = "Blad is al geprint."
Else
    'MsgBox "Blad is geprint."
    Me.CommandButton1.Caption = "Blad nog printen."
End If
End Sub