Forum - Εκτύπωση Εκτύπωση TextBox

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Εκτύπωση] Εκτύπωση TextBox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2986-ektiposi-textbox.html)

Εκτύπωση TextBox

Γεια σας παιδιά,
Γίνεται από ένα Useform να εκτυπώσω το TextBox που έχω δημιουργήσει
Παραθέτω συνημμένο.
Ευχαριστώ για όποια βοήθεια.

Καλημέρα
Οι τρεις περιπτώσεις πιο κάτω κάνουν
Εκτύπωση όλης της φόρμας
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

Γεια σου σπύρο ν' σαι πάντα καλά,
Επέλεξα την τρίτη περίπτωση, ζητώ συγνώμη δεν έχω καταλάβη.
εκεί που είναι τα sh1.Range("rngPrint").Value = TextBox1.Value
sh1.PageSetup.PrintArea = "rngPrint" πρέπει να αντικατασταθούν με κάποιο όνομα?

Ευχαριστώ

Γιώργο σ' ευχαριστώ πολύ
Δεν αλλάζεις κάτι απλά το rngPrint
το χρησιμοποιείς για ονομασία του κελιού
που θα επιλέξεις να φαίνεται το περιεχόμενο του Textbox στο φύλλο
(κελί προορισμού)
και μην ξεχάσεις να ονομάσεις το φύλλο sh1
όχι μπροστά στο tab αλλά πίσω στην κωδική ονομασία του (στο Properties Window)
Μπορείς να αντικαταστήσεις το sh1 με ActiveSheet
αν κι εφ' όσον το κελί που επέλεξες είναι στο ενεργό φύλλο
χωρίς να αλλάξεις τίποτα πίσω

Γεια σου και πάλι Σπύρο,
θα ήθελα ακόμη μια μικρή βοήθεια όταν πατάω εκτύπωση μου εμφανίζει το περιεχόμενο,
του TextBox στην οθόνη και μόνο την πρώτη λέξη πολλές φορές το ίδιο και στο χαρτί
τυπώνη μόνο την πρώτη λέξη πολλές φορές, παραθέτω συνημμένο.
Σ' ευχαριστώ για την πολύτιμη βοήθεια σου.

Παράθεση:

Αρχική Δημοσίευση από gfevran (Μήνυμα 17308)

παραθέτω συνημμένο

Όπως έγραψα στα σχόλια του κώδικα #2 θα πρέπει
να προσαρμόσεις τις διαστάσεις του κελιού προορισμού στις ανάγκες σου
και ακόμα να ενεργοποιήσεις το Wrap Text (αναδίπλωση κειμένου)

Ρίξε μια ματιά στο βιβλίο

O.K Σπύρο μια χαρά πήγε,
κάτι ακόμη το κείμενο είναι αρκετά μεγάλο και το ύψος της γραμμής,
το μέγιστο είναι 409,50 (546 pixels) ως εκ τούτου τυπώνει το μισό κείμενο,
υπάρχει κάποια λύση γ' αυτό.
Ευχαριστώ

Ένα κελί της excel, "χωράει" κάτι λιγότερο από 33.000 χαρακτήρες,
συμπεριλλαμβανομένων και των κενών διαστημάτων.
Το πρόγραμμα αυτό όμως, δεν είναι κειμενογράφος, ώστε να έχει
περισσότερες δυνατότητες από αυτές που προσφέρει και για υπολογιστικό εργαλείο,
μάλλον καλά τα πάει και με τα κείμενα...
Δεν γνωρίζω το είδος της εργασίας σου, αλλά θεωρώ ότι θα πρέπει κάτι άλλο να κάνεις, ώστε να διαχειριστείς το θέμα.
Μου φαίνεται υπερβολικό να πρέπει να γράψεις κάτι τόσο μεγάλο σε φόρμα, να το εισάγεις σε κελί, και μετά να το τυπώσεις...
Αν κάτι δεν καταλαβαίνω, διαφώτισε μας, στο τι θέλεις να πετύχεις στο σύνολο
μήπως βρούμε άλλη λύση...

Σπύρο είναι μια εφαρμογή εσόδων-εξόδων και στο TxtBox έχω τη βοήθεια,
τελικά μείωσα το μέγεθος των χαρακτήρων και είναι όλα μια χαρά,
όλο το κείμενο είναι ακριβώς μια σελίδα Α4
Σ' υπέρ ευχαριστώ για την άμεση ανταπόκριση και πολύτιμη βοήθεια σου.

Με απεριόριστη εκτίμηση,
Γιώργος