[VBA] Aσπρόμαυρη/έγχρωμη εκτύπωση μέσω CheckBox

[gfevran]

Γεια σας παιδιά και χρόνια πολλά σε όλους,
Θα ήθελα αν γίνεται μέσω ενός CheckBox σε μια UserForm μέσα, να επιλέγω ασπρόμαυρη/έγχρωμη εκτύπωση του αρχείου.
Ευχαριστώ για όποια βοήθεια.

[Spirosgr]

Καλησπέρα
Στον κώδικα προεπισκόπησης αλλά και εκτύπωσης αντικατέστησε κάθε optionbutton με:

Για την προεπισκόπηση:

If OptionButton1 Then
        If Me.CheckBox1 Then
            Φύλλο2.PageSetup.BlackAndWhite = True
            Me.Hide
            PR1.PrintPreview
        Else
            Φύλλο2.PageSetup.BlackAndWhite = False
            Me.Hide
            PR1.PrintPreview
        End If
        Me.Show
    End If

Για την εκτύπωση:

If OptionButton1 Then
        If Me.CheckBox1 Then
            Φύλλο2.PageSetup.BlackAndWhite = True
            Me.Hide
            PR1.PrintOut copies:=NrCopies
        Else
            Φύλλο2.PageSetup.BlackAndWhite = False
            Me.Hide
            PR1.PrintOut copies:=NrCopies
        End If
        Me.Show
    End If

Σημείωση:
Τα πιο πάνω τμήματα κώδικα αφορούν τα:
OptionButton1 ► Φύλλο2 ► περιοχή εκτύπωσης PR1

Πρέπει να αντικατασταθούν όπου και όσο χρειάζεται τα πιο κάτω:
1
OptionButton1, 2, 3
2
Φύλλο2, 3, 5 και
3
PR1, 2, 3 αντίστοιχα.

[gfevran]

Γεια σου Σπύρο,
δουλεύει Τέλεια...
Σ΄ Υπέρ Ευχαριστώ.