Come Passa Etichette indirizzi usati e Stampa duplicati in Access

Access è un software di database che consente di aggiungere codice personalizzato per la funzione di report . Per saltare etichette utilizzate e stampare duplicati , è necessario sapere come creare report di etichette postali , come utilizzare Visual Basic, Applications Edition o Access Basic e come utilizzare gli strumenti di programmazione forniti in Microsoft Access . Costruire applicazioni con Microsoft Access consente agli utenti di lavorare in modo più efficiente e completare le attività più velocemente, così come risparmiare carta per etichette e inchiostro della stampante . Istruzioni
1

Crea un resoconto Etichetta Postale e chiamarlo MyLabels . Creare un nuovo modulo e nella sezione Dichiarazioni , aggiungere il seguente codice :

Option Compare Database Option Explicit

Dim LabelBlanks &

Dim LabelCopies &

Dim BlankCount &

Dim CopyCount &

Funzione LabelSetup ( )

LabelBlanks & = Val ( InputBox $ ( " Inserisci numero di etichette vuote per saltare " ) ) < br

LabelCopies > & = Val ( InputBox $ ( " Inserisci numero di copie da stampare " ) ) per

LabelBlanks & < 0 allora LabelBlanks & = 0

LabelCopies & < 1 allora LabelCopies & = 1

End Function

Funzione LabelInitialize ( ) per

BlankCount & = 0

CopyCount & = 0

End Function

LabelLayout Funzione ( R Come report ) per

BlankCount & < LabelBlanks & Then

R.NextRecord = False

R.PrintSection = False

BlankCount & = BlankCount & + 1

Else

CopyCount & < ( LabelCopies e - 1 ), allora

R.NextRecord = False

CopyCount & = CopyCount & + 1

Else

CopyCount & = 0

End If

End If End Function

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

Aggiungi "= LabelSetup ( )" al " SuApertura "la proprietà del report .
4

Fare clic sul " menu " o " View Format " del menu in 2.0 e selezionare" Intestazione /piè di pagina . " Aggiungere un'intestazione di report e piè di pagina. Nella proprietà " Su formattazione " dell'intestazione del rapporto di aggiungere " = LabelInitialize ( ) . " Impostare la proprietà "Altezza" a zero sia per l'intestazione e il piè di pagina .
5

stampare il report. La funzione di codifica è entrato nei passaggi da 1 a 4 si tradurrà in messaggi in cui viene chiesto il numero di etichette utilizzate per saltare e il numero di ciascuna etichetta da stampare.