Access is een database- software die u toelaat om aangepaste code toe te voegen aan de functie rapporten . Om gebruikt adresetiketten en afdrukken duplicaten slaan , moet je weten hoe je adresetiket rapporten te creëren , hoe u met Visual Basic for Applications of Access Basic en hoe u de hulpprogramma's van Microsoft Access gebruiken . Het bouwen van applicaties met Microsoft Access kunnen gebruikers efficiënter werken en te voltooien taken sneller , evenals sparen label papier en printerinkt . Instructies
1 Maak een postetiket rapport en noemen het MyLabels . Maak een nieuwe module en in de declaratie sectie , voeg de volgende code : Optie
Vergelijk Database
Option Explicit Dim LabelBlanks & Dim LabelCopies & < br
Dim BlankCount > &
Dim CopyCount & Functie LabelSetup
( ) LabelBlanks
& = Val ( InputBox $ ( " nummer invoeren van lege labels te slaan " ) ) < br LabelCopies > & = Val ( InputBox $ ( " Enter Aantal af te drukken exemplaren " ) ) op Twitter Als LabelBlanks & < 0 dan LabelBlanks & = 0
Als LabelCopies & < 1 dan LabelCopies & = 1 End Function Function
LabelInitialize ( ) BlankCount & = 0 CopyCount
& = 0 End Function
Functie LabelLayout ( R Zoals Report ) op Twitter Als BlankCount & < LabelBlanks & dan
R.NextRecord = False R.PrintSection
= False BlankCount & =
BlankCount & + 1
Else
Als CopyCount & < ( LabelCopies & - 1 ) dan
R.NextRecord = False CopyCount
& = CopyCount & + 1 < br > Else CopyCount & = 0 Eind
Als End
Als End Function kopen van 2
Open het MyLabels rapport in de ontwerpweergave . Voeg " = LabelLayout ( Reports! [ MyLabels ] ) " in de sectie "Details " in het " OnPrint " eigendom lijn .
3 Toevoegen " = LabelSetup ( ) " aan de " OnOpen " eigendom van het rapport .
Klik 4 op de " menu " of" View Format " menu in 2.0 en selecteer " rapport Koptekst /voettekst . " Voeg een verslag kop-en voettekst . In de " OnFormat " eigendom van het rapport header toe te voegen " = LabelInitialize ( ) . " Stel de " hoogte " eigenschap nul voor zowel de koptekst en de voettekst .
5 Druk het rapport . De functie codering u in stap 1 tot 4 getreden zal resulteren in prompts die u vragen om het aantal gebruikte labels over te slaan en het aantal elk label aan .
Afdrukken |
