Πώς να εκτυπώσετε σε Visual Basic 6

εκτύπωση σε Visual Basic μπορεί να είναι λίγο περίπλοκη για να δημιουργήσει , αλλά μόλις γίνει αυτό, οι περιπλοκές είναι ορατά στο χρήστη . Ένα Visual Basic ελέγχου που ονομάζεται το κοινό παράθυρο διαλόγου ελέγχου ενσωματώνει μία μέθοδο για την εκτύπωση σε Visual Basic . Χρησιμοποιώντας τον κωδικό που συνδέονται με αυτόν τον έλεγχο θα ανοίξει ένα παράθυρο διαλόγου, όπου ο χρήστης μπορεί να επιλέξει συγκεκριμένα χαρακτηριστικά για την εκτύπωση , όπως ποιες σελίδες να εκτυπώσετε , πόσα αντίτυπα και ειδικές ιδιότητες του εκτυπωτή που εμπλέκονται . Οδηγίες
Η 1

Δημιουργήστε το παράθυρο διαλόγου Printer ανοίγοντας Visual Basic και επιλέγοντας « Standard EXE » από τον κατάλογο των προτύπων που προσφέρονται για ένα νέο έργο . Αποθηκεύστε το νέο έργο που δημιουργείται με ένα απλό όνομα όπως " Printer " , κάνοντας κλικ στο "Αρχείο" και " Save Project ως . " Enter " Printer " στο παράθυρο διαλόγου που ανοίγει . Από προεπιλογή , Visual Basic αποδίδει την επέκταση της " vbp . " Save the default " Φόρμα1 " που δημιουργήθηκε με τον ίδιο τρόπο , κάνοντας κλικ στο " Αποθήκευση ως Μορφή " και δίνοντας τη φόρμα το όνομα " Printer " , καθώς και .
Η 2

Προσθέστε το κοινό παράθυρο διαλόγου ελέγχου για το έργο . Κάντε κλικ στο " Project" στο μενού στην κορυφή της οθόνης σας . Από την αναπτυσσόμενη λίστα , επιλέξτε "Προσθήκη στοιχείων ". Μετακινηθείτε προς τα κάτω μια πολύ μακρά λίστα που εμφανίζεται μέχρι να δείτε το "Microsoft κοινό παράθυρο διαλόγου ελέγχου 6.0 ( SP6 ) . Επιλέξτε αυτό με το ποντίκι και κάντε κλικ στο "OK".
Εικόνων 3

Κάντε διπλό κλικ στο ελέγχου κοινό παράθυρο διαλόγου , το οποίο θα πρέπει τώρα να εμφανίζονται στο κάτω μέρος του ελέγχου που φαίνεται στον αριστερό πίνακα για η οθόνη . Ένα εικονίδιο μοιάζοντας με δύο μηδενικά με μια γραμμή πάνω τους και δύο τελείες μία κάτω από την άλλη αντιπροσωπεύει αυτό το στοιχείο ελέγχου . Όταν εκτελείτε το ποντίκι σας πάνω από αυτό , θα εμφανιστούν οι λέξεις " CommonDialog " .
Η

4 Κάντε διπλό κλικ στο εικονίδιο " CommandButton " στο αριστερό πάνελ, αντιπροσωπεύεται από ένα μικρό ορθογώνιο . Αυτό δίνει εντολή στη φόρμα . Κάντε κλικ στο κουμπί τώρα με την ένδειξη " Command1 . " Στο "Ιδιότητες" λίστα για τον έλεγχο αυτό στα δεξιά , αλλάξτε το όνομα σε " cmdPrint " . Μετακινηθείτε προς τα κάτω μέχρι να δείτε Αλλάξτε το όνομα αυτό για να " Εκτύπωση "
5

τύπου " Υπόμνημα ". : . Δημ. FileName , Textline , BeginPage , EndPage , NumCopies , Προσανατολισμός , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( " Ποιο αρχείο πρέπει να εκτυπώσω; " ) Open όνομα αρχείου για Input Όπως # 1Μην While Not EOF ( 1 ) γραμμής εισόδου # 1 , # TextLinePrinter.Print TextLineLoopClose 1End
Η 6

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