Πώς να εκτυπώσετε ένα έγγραφο του Word Από την Access

Microsoft Access είναι ένα σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιεί Visual Basic για να δημιουργήσετε διακριτικό λειτουργίες . Ένα πλεονέκτημα της Access είναι η δυνατότητα για την αυτοματοποίηση των διαδικασιών , όπως την είσοδο του χρήστη και εκτύπωση . Δημιουργία συστημάτων μέσα από την Access παίρνει την πρακτική . Μόλις καταλάβετε τα βασικά του σχεδιασμού εντύπων και ενότητες, είναι δυνατό να εκτυπώσετε ένα έγγραφο από άλλο πρόγραμμα του Office , όπως το Microsoft Word . Αυτός είναι ένας χρήσιμος τρόπος για να εκτυπώσετε πληροφορίες βοήθειας ή τυχόν στατικό έγγραφο του Word χωρίς να αναγκάζει τον χρήστη να αφήσει το custom made εφαρμογής στην Access . Οδηγίες
Ενότητα
Η

1 Ανοίξτε το Microsoft Access στον υπολογιστή σας . Κάντε διπλό κλικ στο εικονίδιο στην επιφάνεια εργασίας ή πατήστε το κουμπί "Start " για να δείτε το μενού Έναρξη . Εντοπίστε Αξιολόγηση υπό Office ή του Microsoft στο μενού έναρξης και κάντε κλικ για να ανοίξετε το λογισμικό . 2

Εισάγετε οποιαδήποτε βάση δεδομένων της Access .
Εικόνων 3

Μετακίνηση στο Navigation παράθυρο στην αριστερή πλευρά της οθόνης . Κάντε κλικ στο " Modules " και επιλέξτε " New " από τις επιλογές Module . Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας VBA .
Η 4

Πληκτρολογήστε τη διαδικασία " PrintDoc " που αναφέρονται παρακάτω στο παράθυρο επεξεργαστή VBA .

PrintDoc Function ( ) Dim WordObj Όπως ObjectSet WordObj = CreateObject ( " Word.Application " ) WordObj.Documents.Open " C : \\ MyDocument.doc " WordObj.PrintOut Ιστορικό : = FalseWordObj.QuitSet WordObj = NothingEnd Λειτουργία

5

Αλλάξτε τη γραμμή " C : \\ MyDocument . doc "για να εισάγετε τη διαδρομή για το έγγραφο που θέλετε να εκτυπώσετε . Αυτή η ενότητα θα εμφανιστεί στο μενού του συστήματος για αυτή τη βάση δεδομένων . Μπορείτε να δοκιμάσετε τη μακροεντολή με την κίνηση προς το παράθυρο στο κάτω μέρος της οθόνης του επεξεργαστή κειμένου . Πληκτρολογήστε " ; PrintDoc ( ) " χωρίς τα εισαγωγικά και πατήστε enter . Το έγγραφο θα ξεκινήσει η εκτύπωση από τον προεπιλεγμένο εκτυπωτή για τον υπολογιστή σας .
Εικόνων Φόρμα Button

6

Ανοίξτε το Microsoft Access στον υπολογιστή σας . Κάντε διπλό κλικ στο εικονίδιο στην επιφάνεια εργασίας ή πατήστε το κουμπί "Start " για να δείτε το μενού Έναρξη . Εντοπίστε αξιολογήσει υπό το Office ή το Microsoft στο μενού έναρξης και κάντε κλικ για να ανοίξετε το λογισμικό .
Η 7

Δημιουργήστε μια νέα φόρμα σε οποιαδήποτε βάση δεδομένων . Κάντε κλικ στο " Έντυπα " εικονίδιο στο πάνω μέρος της οθόνης . Εάν δεν είστε βέβαιοι ποια είναι η εικόνα για τις «Μορφές », αιωρείται από πάνω τους ένα προς ένα , μέχρι η λέξη «Έντυπα» σκάει επάνω .
8

Κάντε κλικ στο κουμπί "Νέο" στο πλαίσιο διαλόγου έντυπα .
Τετάρτη 9

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

10 Σχεδιάστε ένα " Χωρίς περιορισμούς Ελέγχου , " αυτό είναι ένα αντικείμενο που δεν συνδέονται με ένα τραπέζι ή εγγραφή. Χρησιμοποιήστε το " Ισοπαλία" εργαλείο για να δημιουργήσετε ένα τετράγωνο στο στάδιο του σχεδιασμού. Ένα παράθυρο διαλόγου " Εισαγωγή αντικειμένου " θα εμφανιστεί στην οθόνη μετά την ολοκλήρωση της σχεδίασης .
Η 11

Κάντε κλικ στο " Δημιουργία από αρχείο " στο παράθυρο διαλόγου Εισαγωγή αντικειμένου . Πληκτρολογήστε τη διαδρομή για το έγγραφο του Word που θέλετε να εκτυπώσετε , για παράδειγμα, " C : \\. MyDocument.doc " " . OLEObj "

12

Ρυθμίστε το "Όνομα" του αντικειμένου σε
Τετάρτη 13

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

Πληκτρολογήστε τις ακόλουθες πληροφορίες στο παράθυρο διαλόγου πλήκτρο Command : .

Όνομα : PrintDocCaption : Εκτύπωση λέξη DocumentOnClick : Επιλέξτε " Διαδικασία συμβάντος " από το drop down μενού .
Η 15

Εισάγετε τον παρακάτω κωδικό στο " Build " παράθυρο διαλόγου κουμπί .

Private Sub PrintDoc_Click ( ) Dim WordObj Όπως ObjectMe ! [ OLEObj ] . ρήμα = -2 » λέει Access για να ανοίξετε το applicationMe [ OLEObj ] Action = 7 ! ». Ενεργοποιεί το applicationSet WordObj = Me [ OLEObj ] Object.ApplicationWordObj.PrintOut Ιστορικό : . = FalseWordObj.QuitSet WordObj = NothingEnd Sub

16

Προβάλετε τη φόρμα στον υπολογιστή σας . Κάντε κλικ στο κουμπί "Print Word Doc " για να δοκιμαστεί η νέα εφαρμογή εκτύπωσης.
Η
εικόνων