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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Aσπρόμαυρη/έγχρωμη εκτύπωση μέσω CheckBox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3493-aspromayri-egxromi-ektiposi-meso-checkbox.html)

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

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

Καλησπέρα
Στον κώδικα προεπισκόπησης αλλά και εκτύπωσης αντικατέστησε κάθε 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 αντίστοιχα.

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