Πώς να εκτυπώσετε ένα αρχείο χρησιμοποιώντας το Visual Basic 6.0

Visual Basic εκτύπωσης περιλαμβάνει μια λειτουργία " Εκτυπωτής " για να εκτυπώσετε ένα αρχείο αλλά δεν δίνει τον έλεγχο της μορφοποίησης , κυρίως για να τυλίξει μακρά γραμμές . Πρόσθετος κωδικός μπορεί να χειριστεί το κείμενο , τον έλεγχο για το μήκος γραμμής και χωροθέτησης των χώρων για να βρείτε ένα καλό μέρος για να σπάσουν τις γραμμές . Ωστόσο , υπάρχει ένας ευκολότερος τρόπος για τη συμμετοχή μόνο λίγες γραμμές κώδικα και μια πλούσια ελέγχου πλαισίου κειμένου . Το μόνο μειονέκτημα είναι ότι δεν θα παράσχει τις ρυθμίσεις των περιθωρίων . Αυτό είναι δυνατό με ένα API ( Application Programming Interface ) κλήση , αλλά ο κωδικός API είναι μακρά , τρέχει πάνω από 122 γραμμές κώδικα και 700 + λέξεων με επεξήγηση . Αυτό υπερβαίνει το πεδίο εφαρμογής του παρόντος άρθρου . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο Standard EXE στη Visual Basic κάνοντας κλικ στο " Αρχείο , " τότε " New Project" και επιλέγοντας το πρότυπο Standard EXE . Προσθέστε ένα στοιχείο ελέγχου ετικέτας στη φόρμα που ανοίγει κάνοντας κλικ στο εικονίδιο ετικέτας στην εργαλειοθήκη που δείχνει στα αριστερά . Αυτή είναι η μεγάλη γράμμα "Α " σε πώματα. Ψάξτε στη λίστα Ιδιότητες σχετικά με το δικαίωμα για τις ιδιότητες Label1 και να αλλάξετε τη λεζάντα ως εξής: " Το όνομα του αρχείου που πρόκειται να εκτυπωθεί ; " , αλλά δεν περιλαμβάνουν τα εισαγωγικά . 2

Προσθέστε ένα στοιχείο ελέγχου Πλαίσιο κειμένου η μορφή με τον ίδιο τρόπο , χρησιμοποιώντας το εικονίδιο Εργαλειοθήκη μια μικρή πλατεία με πεζά γράμματα « ab » σε αυτό . Τοποθετήστε το Πλαίσιο κειμένου στα δεξιά της ετικέτας . Εντοπίστε το «Κείμενο» ιδιοκτησίας στη λίστα ιδιοτήτων για αυτό το στοιχείο ελέγχου και κάντε διπλό κλικ στο κείμενο της ιδιότητας για να επισημάνετε το προεπιλεγμένο όνομα . Πατήστε το πλήκτρο " Delete" στο πληκτρολόγιό σας για να το αφαιρέσετε .
Εικόνων 3

Προσθέστε δύο κουμπιά εντολών από την εργαλειοθήκη , που προσδιορίζονται από ένα μικρό ορθογώνιο . Αλλάξτε τη λεζάντα του πρώτου να "Print" και η λεζάντα της δεύτερης στο "Άκυρο" . Προσθέστε ένα στοιχείο ελέγχου στην εργαλειοθήκη κάνοντας κλικ στο " Project" στο μενού στην κορυφή και στη συνέχεια " Components . Βρείτε το "Microsoft Rich Textbox ελέγχου 6.0 ( SP6 ) " στη λίστα και κάντε κλικ στο πλαίσιο ελέγχου για να το επιλέξετε . Κάντε κλικ στο " Apply" και "OK". Προσθέτουμε το νέο στοιχείο ελέγχου , η οποία θα πρέπει να είναι στο κάτω μέρος της λίστας ελέγχου . Μετακίνηση του κέρσορα πάνω στο εικονίδιο θα εμφανιστεί το όνομα .
Η

4 Κάντε κλικ στο Microsoft Rich Textbox ελέγχου 6.0 ( SP6 ) στη φόρμα . Στη λίστα Ιδιότητες για τον έλεγχο αυτό , διαγράψτε το " κείμενο " όνομα , αλλάξτε το " Multiline " ακινήτων από " False " σε "True , κάνουν το " Ορατό " ιδιοκτησία" False " και ρυθμίστε το " Font " ιδιοκτησίας σε ό, τι γραμματοσειρά και το μέγεθος θέλετε .
5

διπλό κλικ για τον έλεγχο Εκτύπωση για να ανοίξετε το παράθυρο κώδικα . Εισάγετε τον κωδικό ακριβώς όπως εμφανίζεται παρακάτω :

Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Όπως StringstrFileToPrint = Text1.TextOpen strFileToPrint Για Input Όπως # 1Μην Μέχρι ΕΟΦ ( 1 ) γραμμής εισόδου # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub

Κάτω από αυτόν τον τύπο τον ακόλουθο κώδικα :

Private Sub Command2_Click ( ) EndEnd Sub

6

Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να εκτυπώσετε ένα αρχείο . Εάν το έγγραφο δεν εκτυπώνεται , ελέγξτε τις γραμμές κώδικα παραπάνω για να βεβαιωθείτε ότι έχετε εισαγάγει σωστά . Εάν εμφανιστεί μια προειδοποίηση σύμφωνα με την οποία το αρχείο δεν βρέθηκε , στη συνέχεια, ελέγξτε τη θέση και το όνομα του αρχείου .
Η
εικόνων