[kapetang]

Καλησπέρα

Γιώργο, δοκίμασε τον παρακάτω κώδικα:

Private Sub cmdPrintPreview_Click()
    Dim vSheets As Variant
    Dim vPrintAreas As Variant
    Dim vOpButtons As Variant
    Dim i As Long
    
    'Εδώ ορίζονται τα φύλλα εργασίας για προεπισκόπηση
    vSheets = Array("Φύλλο1", "Φύλλο2", "Φύλλο3")
    
    'Εδώ καθορίζουμε τις αντίστοιχες περιοχές εκτύπωσης για κάθε φύλλο
    sPrintArea = Array("$F$6:$L$16", "$F$6:$L$16", "$F$6:$L$16")
    
    'Εδώ καθορίζουμε τα ονόματα των αντίστοιχων Option Buttons
    vOpButtons = Array("OptionButton1", "OptionButton2", "OptionButton3")

    For i = 0 To UBound(vSheets)
        If Me.Controls(vOpButtons(i)).Value Then
            Worksheets(vSheets(i)).PageSetup.PrintArea = sPrintArea(i)
            Me.Hide
            Worksheets(vSheets(i)).PrintPreview
            Me.Show
            Exit For
        End If
    Next
End Sub

Φιλικά/Γιώργος