[Spirosgr]

Αυτός είναι ο κώδικας για την προεπισκόπηση

Private Sub cmdPrintPreview_Click()
    Dim PR1 As Range, PR2 As Range, PR3 As Range    'Ορισμός μεταβλητών
    Set PR1 = Φύλλο2.Range("$F$6:$L$16")    ' Set στις περιοχές εκτύπωσης
    Set PR2 = Φύλλο3.Range("$F$6:$L$16")
    Set PR3 = Φύλλο5.Range("$A$4:$N$23")

    If OptionButton1 Then    ' Εκκίνηση [1]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR1.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton2 Then    ' Επανάληψη όσο χρειάζεται [2]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR2.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton3 Then    ' Επανάληψη όσο χρειάζεται [3]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR3.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
End Sub

και αυτός για την εκτύπωση με την προσθήκη του Τάσου

Private Sub cmdPrint_Click()
    Dim PR1 As Range, PR2 As Range, PR3 As Range    'Ορισμός μεταβλητών
    Dim NumberOfCopies As Byte ' Από 0 έως 255
    NumberOfCopies = Application.InputBox(Prompt:="Επιλέξτε αριθμό αντίτυπων", _
                                          Title:="Αριθμός αντίτυπων...", Default:=1, Type:=1)
    Set PR1 = Φύλλο2.Range("$F$6:$L$16")    ' Set στις περιοχές εκτύπωσης
    Set PR2 = Φύλλο3.Range("$F$6:$L$16")
    Set PR3 = Φύλλο5.Range("$A$4:$N$23")
    If NumberOfCopies < 1 Then Exit Sub
    If OptionButton1 Then    ' Εκκίνηση [1]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR1.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton2 Then    ' Επανάληψη όσο χρειάζεται [2]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR2.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton3 Then    ' Επανάληψη όσο χρειάζεται [3]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR3.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
End Sub

Δεν βάζουμε το Combobox για να μην πάμε πιο μακρυά
Δες τους και σύγκρινε