[Tasos]

Αγαπητέ Ιωάννη καλημέρα!

Όρισε ένα όνομα σε κάθε κελί του φύλλου που θα πάρει την τιμή του από το αντίστοιχο πεδίο της φόρμας.
Για παράδειγμα το κελί B3 όρισε το όνομα Surname, στο κελί B4 το όνομα sName, στο κελί B5 το όνομα FName κοκ.

Κατόπιν στη φόρμα, στην ιδιότητα ControlSource των πεδίων κειμένου, πέρασε τα ονόματα που έχεις ορίσει στα αντίστοιχα κελιά του φύλλου.

Με τη μέθοδο αυτή τα πεδία θα εμφανίζουν αλλά και θα τροποποιούν τα περιεχόμενα των κελιών.

Αφού ορίσεις την περιοχή εκτύπωσης στο φύλλο Φύλλο1, πέρασε τον παρακάτω κώδικα στη φόρμα για εκτύπωση και προεπισκόπηση εκτύπωσης:

Private Sub CommandButton1_Click()
    Dim shname As String
    shname = Range(TextBox1.ControlSource).Parent.Name
    If shname <> vbNullString Then
        Sheets(shname).PrintOut
    End If
End Sub

Private Sub CommandButton2_Click()
    Dim shname As String
    shname = Range(TextBox1.ControlSource).Parent.Name
    If shname <> vbNullString Then
        Me.Hide
        Sheets(shname).PrintPreview
        Me.Show
    End If
End Sub

Φιλικά

Τάσος