[Tasos]

Καλησπέρα!

Option Explicit

Private Sub cmdPrintPreview_Click()
    Me.Hide
    Sheet1.PrintPreview  'Είναι πιο σίγουρο να αποφεύγεται η έκφραση "ActiveWindow.SelectedSheets" _
                          για λόγους που αναφέρθηκαν στο προηγούμενο σου θέμα.
    
    Me.Show
End Sub

' Κλείνει τη φόρμα:

Private Sub cmdUnloadMe_Click()
    Unload Me
End Sub


' Ακύρωση κλεισίματος από το κουμπί του παραθύρου της φόρμας:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = CloseMode <> vbFormCode
End Sub

Τάσος