[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 αντίστοιχα.