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 & < br >
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
< p > 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 < br >
Else
CopyCount & = 0
End If
End If End Function
2
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.
