Πώς να Μεταφορά Μεταχειρισμένα ετικέτες αλληλογραφίας & Εκτύπωση Αντίγραφα σε Access

Access είναι ένα λογισμικό βάσης δεδομένων που σας επιτρέπει να προσθέσετε προσαρμοσμένο κώδικα για τη λειτουργία εκθέσεων . Για να παρακάμψετε μεταχειρισμένων ετικέτες αλληλογραφίας και για τα αντίγραφα εκτύπωσης , θα πρέπει να ξέρετε πώς να δημιουργήσετε αναφορές ετικέτα αλληλογραφίας , πώς να χρησιμοποιήσετε το Visual Basic for Applications ή Access Basic και πώς να χρησιμοποιούν τα εργαλεία προγραμματισμού που παρέχεται στη Microsoft Access . Κτίριο εφαρμογών με Microsoft Access επιτρέπει στους χρήστες να εργάζονται πιο αποτελεσματικά και να ολοκληρώνετε εργασίες γρήγορα, καθώς και να αποθηκεύσετε ετικέτα χαρτί και το μελάνι του εκτυπωτή . Οδηγίες
Η 1

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

Option Compare Database

Option Explicit

Δημ. & LabelBlanks

Δημ. & LabelCopies < br >

Δημ. BlankCount &

Δημ. CopyCount &

LabelSetup Function ( )

LabelBlanks & = Val ( InputBox $ ( " Εισάγετε τον αριθμό του τυφλού ετικέτες για να παρακάμψετε " ) ) < br >

LabelCopies & = Val ( InputBox $ ( " Εισάγετε τον αριθμό των αντιγράφων προς εκτύπωση " ) )

Εάν LabelBlanks & < 0 τότε LabelBlanks & = 0

Αν LabelCopies & < 1 τότε LabelCopies & = 1
Λειτουργία

Τέλος

LabelInitialize Function ( )

BlankCount & = 0

CopyCount & = 0

Τέλος
Function < p > LabelLayout Λειτουργία ( R Όπως Report )

Εάν BlankCount & < LabelBlanks & Then

R.NextRecord = False

R.PrintSection = False

BlankCount & = BlankCount & + 1

Else

Εάν CopyCount & < ( LabelCopies & - 1 ) Μετά

R.NextRecord = False

CopyCount & = CopyCount & + 1 < br >

Αλλιώς

CopyCount & = 0

End If

End If

End Function 2

Ανοίξτε το MyLabels έκθεση σε προβολή σχεδίασης . Προσθήκη " = LabelLayout ( Reports! [ MyLabels ] ) " στην ενότητα " Λεπτομέρειες " στο " τοΈχειη " γραμμή ιδιοκτησίας .
Εικόνων 3

Προσθήκη " = LabelSetup ( ) " στο " OnOpen " ιδιοκτησίας της έκθεσης .
Η

4 Κάντε κλικ στο " μενού " ή " Προβολή Format " μενού σε 2,0 και επιλέξτε" Αναφορά Header /Footer . " Προσθέσετε μια κεφαλίδα και υποσέλιδο έκθεσης . Στο " OnFormat " ιδιοκτησία κεφαλίδα της έκθεσης " = LabelInitialize ( ) . " Προσθήκη Ρυθμίστε το "ύψος " ιδιοκτησίας στο μηδέν , τόσο για την κεφαλίδα και το υποσέλιδο .
5

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