Access ist ein Datenbank-Software , mit der Sie benutzerdefinierte Code zu den Berichten Funktion hinzufügen können. Zu verwenden, Adressetiketten und Drucken Duplikate überspringen , müssen Sie wissen, wie man Adressetiketten Berichte zu erstellen , wie Sie mit Visual Basic für Applikationen oder Access Basic und wie die Programmier-Tools in Microsoft Access zu verwenden. Erstellen von Anwendungen mit Microsoft Access können Anwender effizienter arbeiten und Aufgaben schneller abzuschließen sowie Label sparen Papier und Druckertinte . Anleitung
1
erstellen Bericht für Adressetiketten und nennen es MyLabels . Erstellen Sie ein neues Modul und in die Deklarationen Abschnitt , fügen Sie den folgenden Code:
Option Compare Database Option Explicit
Dim LabelBlanks &
Dim LabelCopies &
Dim BlankCount &
Dim CopyCount &
Funktion LabelSetup ()
LabelBlanks & = Val ( InputBox $ ("Geben Sie Anzahl der Blanko-Etiketten zu überspringen " )) < br >
LabelCopies & = Val ( InputBox $ ("Geben Sie Anzahl der Kopien beim Drucken " ) )
Wenn LabelBlanks & < 0 Then LabelBlanks & = 0
Wenn LabelCopies & < 1 Then LabelCopies & = 1 of
End Function Function
LabelInitialize ()
BlankCount & = 0
CopyCount & = 0
End Function
< p > Funktion LabelLayout (R Wie Report)
Wenn BlankCount & < LabelBlanks & Then
R.NextRecord = False
R.PrintSection = False
BlankCount & = BlankCount & + 1
Else
Wenn CopyCount & < ( LabelCopies & - 1) Dann
R.NextRecord = False
CopyCount & = & CopyCount + 1
Else
CopyCount & = 0
End If End If
End Function
2
öffnen MyLabels Bericht in der Entwurfsansicht . In "= LabelLayout ( Reports! [ MyLabels ] )" im "Detail " in der " OnPrint " Grundstücksgrenze .
3
hinzufügen "= LabelSetup () " zum " OnOpen " Eigenschaft des Berichts .
4
Klicken Sie auf das Menü" Ansicht " oder" Format "-Menü in 2.0 und wählen Sie" Report Header /Footer . " Schreibe einen Bericht Kopf-und Fußzeile . In der " Formatieren " -Eigenschaft des Berichts -Header hinzufügen "= LabelInitialize (). " Stellen Sie die "Höhe" -Eigenschaft, um sowohl für den Kopf-und Fußzeile auf Null gesetzt.
5
Drucken Sie den Bericht . Die Funktion Codierung eingegebene in den Schritten 1 bis 4 werden in Aufforderungen zur Folge , dass Sie bitten, für die Anzahl der verwendeten Etiketten zu überspringen und die Anzahl der zu jedem Etikett .
Ausdrucken
