Access è un software di database che consente di aggiungere codice personalizzato per la funzione di report. Per ignorare etichette postali utilizzate e stampa duplicati, è necessario sapere come creare etichette postali che segnala, come utilizzare Visual Basic Applications Edition o Access Basic e come utilizzare gli strumenti di programmazione forniti in Microsoft Access. Creazione di applicazioni con Microsoft Access consente di utenti lavorano in modo più efficiente e completano le attività più velocemente, così come risparmiare inchiostro stampante e carta di etichetta.

Istruzioni

1

Creare un report di etichette Mailing e chiamarlo MyLabels. Creare un nuovo modulo e nella sezione delle dichiarazioni, aggiungere il seguente codice:

Option Compare Database

Option Explicit

Dim LabelBlanks&

Dim LabelCopies&

Dim BlankCount&

Dim CopyCount&

Function LabelSetup)

LabelBlanks& = Val(InputBox$("Enter Number of blank labels to skip"))

LabelCopies& = Val(InputBox$("Enter Number of Copies to Print"))

If LabelBlanks& < 0 Then LabelBlanks& = 0

If LabelCopies& < 1 Then LabelCopies& = 1

End Function

Function LabelInitialize)

BlankCount& = 0

CopyCount& = 0

End Function

Funzione LabelLayout (R come Report)

If BlankCount& < LabelBlanks& Then

R.NextRecord = False

R.PrintSection = False

BlankCount& = BlankCount& + 1

Else

If CopyCount& < (LabelCopies& - 1) Then

R.NextRecord = False

CopyCount& = CopyCount& + 1

Else

CopyCount& = 0

End If

End If

End Function2

Aprire il report MyLabels in visualizzazione struttura. Aggiungere "= LabelLayout (report! [ MyLabels]) "nella sezione"Dettagli"nella riga"OnPrint"proprietà.

3

Aggiungi "LabelSetup =" alla proprietà "OnOpen" della relazione.

4

Fare clic sul menu "Visualizza" o dal menu "Formato" in 2.0 e selezionare "Intestazione/piè di pagina Report." Aggiungere un'intestazione di report e il piè di pagina. Nella proprietà dell'intestazione del report "OnFormat" aggiungere "= LabelInitialize()." Impostare la proprietà "Height" a zero per l'intestazione e il piè di pagina.

5

Stampare il report. La funzione codifica immesso nei passaggi da 1 a 4 si tradurrà in prompt che chiede per il numero di etichette usate per saltare e il numero di ogni etichetta da stampare.