[Spirosgr]

Καλημέρα
Οι τρεις περιπτώσεις πιο κάτω κάνουν
Εκτύπωση όλης της φόρμας
Preview περιεχομένων TextBox
Εκτύπωση περιεχομένων TextBox
Αγνοήστε το μήνυμα "έχετε επιλέξει ένα μόνο κελί για εκτύπωση..." και πιέστε Ok

'1. ΕΚΤΥΠΩΣΗ Όλη η φόρμα
Private Sub CommandButton3_Click()
    Me.PrintForm
End Sub

'2. Preview περιεχομένων TextBox ΜΟΝΟ
'Μεταφορά του περιεχομένου του TextBox1
'σε κελί F1 και ΕΚΤΥΠΩΣΗ το κελί
'Διαμορφώστε το F1 (μέγεθος, Wrap text κλπ)
'Όπου sh1 το κωδικό όνομα του φύλλου που βρίσκεται το F1
'Όπου rngPrint το όνομα του κελιού F1
'Οι γραμμές που έχουν σήμανση Επιβάλλεται αν δεν μπουν θα κολλήσει η οθόνη
Private Sub CommandButton4_Click()
    sh1.Range("rngPrint").Value = TextBox1.Value
    sh1.PageSetup.PrintArea = "rngPrint"
    UserForm1.Hide    'Επιβάλλεται
    sh1.PrintPreview
    UserForm1.Show    'Επιβάλλεται
End Sub

'3. Print TextBox ΜΟΝΟ
Private Sub CommandButton2_Click()
    sh1.Range("rngPrint").Value = TextBox1.Value
    sh1.PageSetup.PrintArea = "rngPrint"
    sh1.PrintOut Copies:=1
End Sub