Πώς να πάρετε πληροφορίες εκτυπωτή με χρήση VB6

Microsoft Visual Basic 6 ( VB6 ) σας παρέχει μια τάξη εκτυπωτή που σας επιτρέπει να δημιουργήσει και να ανακτήσετε πληροφορίες για τον εκτυπωτή . Χρησιμοποιήστε αυτή την κατηγορία για τον εντοπισμό του εκτυπωτή πριν στείλετε την εργασία εκτύπωσης στη συσκευή . Πολλές ιδιότητες είναι διαθέσιμες στην κατηγορία εκτυπωτή , οπότε θα πρέπει να καθορίσει τι ακίνητο που θέλετε να δείτε από τον κώδικα και να επιστρέψει σε μια μεταβλητή συμβολοσειράς . Οδηγίες
Η

1 Κάντε δεξί κλικ στο αρχείο λύση VB6 στην επιφάνεια εργασίας σας . Επιλέξτε " Άνοιγμα με " και στη συνέχεια κάντε διπλό κλικ στο " Visual Basic " για να ανοίξετε το λογισμικό . 2

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

Δημιουργήστε μια μεταβλητή κλάσης για τον εκτυπωτή . Πληκτρολογήστε τον ακόλουθο κώδικα για να ξεκινήσει η διαδικασία του εκτυπωτή :

Dim εκτυπωτή Όπως Printer ( )
Η 4

Πάρτε το όνομα του εκτυπωτή . Αν δεν μπορείτε να καθορίσετε ένα διαφορετικό εκτυπωτή , το " DeviceName " ιδιότητα ανακτά το όνομα του προεπιλεγμένου εκτυπωτή στην επιφάνεια εργασίας . Πληκτρολογήστε τον ακόλουθο κώδικα για να ανακτήσετε το όνομα της συσκευής :

Dim όνομα_εκτυπωτή Όπως String

όνομα_εκτυπωτή = printer.DeviceName
5

Ανακτήστε τον αριθμό των σελίδων που εκτυπώνετε . Ο κώδικας που ακολουθεί ανακτά τις πληροφορίες :

Dim σελίδες Όπως String

σελίδες = printer.Pages
Η

6 Κάντε κλικ στο κουμπί "Αποθήκευση " και κάντε κλικ στο " Run" εκτελέσετε τον κώδικα στο πρόγραμμα εντοπισμού σφαλμάτων . Μπορείτε να δείτε τις αλλαγές κώδικα και εξέταση για τυχόν συντακτικά λάθη στο πρόγραμμα εντοπισμού σφαλμάτων σας .
Η
εικόνων